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programmer 
un ordinateur est 

devenu pour vous 

un loisir, un plaisir... 

une passion, sachez que LIST a été créé 
pour vous. LIST vous aide à tirer davantage 
de votre matériel, à vous perfectionner 
dans la conception des programmes 

qui “tourneront” sur votre machine. 

LIST vous initie aux langages informatiques 
et sélectionne les meilleurs livres pour 
progresser. LIST vous informe de l'actualité 
et vous fournit trucs, astuces et idées 

pour mieux programmer... 

Pour être sûr de ne rater aucun numéro 
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Veuillez m'abonner pour 10 numéros au prix 
avantageux de 160 F* au lieu de 200 F. Je fais ainsi 
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Je joins mon règlement indispensable libellé 
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EDITORIAL 


Ce numéro d'Ordi-5 est, vous l'avez 
remarqué, un numéro spécial. 
Pourquoi ? Parce que nous avons 
décidé de vous livrer une partie 
de notre trésor de guerre : 
35 bons programmes patiemment 
stockés depuis plusieurs 
numéros, parce que la place 
est toujours réduite et qu'il faut 
chaque fois effectuer des arbitrages 
douloureux à cause de la longueur 
très variable des programmes 
proposés par les lecteurs. 
Exemple de dialogue courant à la 
rédaction : 
«— Dis-donc, il ne reste plus qu une . 
colonne pour boucler la revue. 

— M faut garder le programme 
« Loto » de Didier M. qui fait deux 
colonnes et le remplacer par le 
programme de Fançois B. | 
qui ne fait qu'une colonne ; ils sont 
super-valables tous les deux mais ce 
n'est pas le même genre... 
— OK ! retirons le plus long, mais il 


faudra absolument le publier un jour. » 


Le rédacteur en chef a tranché : 

le « marbre » (réserve) s’est 
augmenté d'un logiciel. 

Voici d'un seul coup 35 « injustices » 
effacées avec un recueil qui est une 
photographie précise des centres 

d' intérêt préférés des lecteurs, car 
nous n'avons fait de sélection que 
sur la qualité, pas sur les sujets : 
beaucoup de jeux, un peu moins 
d'utilitaires et assez peu 

de programmes courts (1K) ou 
d'initiation, ce qui est étonnant car 
les Sinclair sont des ordinateurs très 
conviviaux pour les débutants. 
Seulement voilà : les réserves 

de la banque logicielle d'ORDI-5 

ont brusquement chuté 

au niveau critique. Alors vite, 

au secours, à l’aide, des 
programmes, des articles, pour que 
cette revue qui nous amuse bien 

et qui semble vous plaire connaisse 
avec vous les bons moments 
informatiques qui attendent 

encore les fidèles de Sinclair 
(Spectrum Plus, QL, etc.) !! 
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Si VOUS utilisez 
un ordinateur 
SINCLATR 

(ZX 81*, ZX 80* ou Spectrum*) ou 
si vous comptez en acheter un, sachez 
que la revue ORDI-5 a été créée pour 

VOUS. Indépendante de tout constructeur ou importateur, 
ORDI-5 vous fournit quatre fois par an des programmes, 
des conseils, des astuces, de nouvelles idées d'utilisation. 
ORDI-5 teste pour vous en toute objectivité et indépendance les produits matériels 
et logiciels adaptables sur votre SINCLATR. ORDI-5 vous tient au courant 

de toutes les nouveautés susceptibles de vous intéresser. 

Commandez un numéro ou... abonnez-vous, vous économiserez 20 %. 


Ni ORDI:-5, pour tirer bien plus de votre SINCLAIR 


BON DE COMMANDE 
à retourner à ORDI-5, 8 rue Saint-Marc 75002 PARIS 

Nom 
Adresse 
Pays Code postal Ville 


O Je désire recevoir les 4 derniers numéros parus et m'abonner pour recevoir les 4 prochains numéros. 
(France 160 FF; Etranger** 180 FF: par avion 320 FF). 

O Je désire recevoir les numéros antérieurs suivants : 
(rix d'un n° 25 FF; Etranger** 30 FF; par avion 40 FF). 
© Je désire m'abonner à ORDI-5 pour 4 n°s 
(tarif France 80 FF: Etranger** 90 FF; par avion 160 FF). nes ORDI-5 est es 


Ci-joint mon règlement indispensable par chèque bancaire [1] chèque postal [l virement [ 


**Pour les pays autres que la France, utiliser un virement en FF compte Crédit Lyonnais Paris n° 30002 00402 8455 J. Les frais de virement sont à la charge de l'acheteur. 





























30, rue Condorcet - 75009 PARIS 
Téléphone : (1) 285.12.34 











POUR ZX 81 ET TIMEX 


Clavier professionnel 

interface disquettes et lecteur 5” 1/4 
Extensions de mémoire 16,32 et 64 K 
Carte d'inversion vidéo 

Carte génératrice de sons 
Synthétiseur vocal 

Générateur de caractères graphiques 


3 





- Crayon optique clavier Pro ZX 81 770.-F. 
= Prolongateur souple de bus 
- Filtre d'enregistrement ._.. POUR ZX SPECTRUM 


L 


‘Interface pour poignée de jeu 
Carte génératrice 16 couleurs 
‘ Carte auto répétition 
Carte 8 entrées analogiques 
Carte entrées/sorties 
Programmateur d'Eprom 


- Clavier professionnel 

Interface disquettes et lecteur 5” 1/4 
Interface ZX 1 

Lecteur de micro disquette 

Micro disquettes pour micro drive en stock 
Extension de mémoire externe 16/48 K 


L 


1 


1 


- Carte Eprom Re . . | 
- Beep clavier - Intérface type Kempston pour joystick 
Carte mère - Interface programmable pour joystick 


- Amplificateur de son réglable 
Carte proto. jusqu'à X 10 


Synthétiseur vocal 

Modulateur noir et blanc 
‘Interface mixte Centronics/ je 232. 
Interface Péritel 

Crayon optique 

- Carte 8 entrées analogiques 

- Carte entrée/sortie : 

- programmateur d'Eprom 

- Carte Eprom 


- Raccordement pour moniteur 
monochrome 


- Prolongateur souple de bus 





‘clavier Pro Spectrum 950.-F. 


ET ENFIN LE Q.L. 


TRES GRAND CHOIX DE LOGICIELS UTILITAIRES ET LUDIQUES (IMPORTATION DIRECTE) 
IMPRIMANTES : SEIKOSHA - EPSON - STAR - MANNESMANN TALLY 
MONITEURS MONOCHROMES ET COULEURS : ZENITH - PHILIPS - TAXAN - BMC 


TELEVISION — LOCATION | an dr mmmon emo | 
- POSTES SECAM AVEC SORTIE PERITEL | 


- POSTES MULTISTANDARDS PAL SECAM EE CL 


COMPATIBLES MICRO - ORDINATEURS 


ADRÉSSEL 2 re RAM NN El ee er un sc 


Code Postal _, _, _. _. _. VILLE... —. —. —. _. _. _. —. —. — 


A retourner à INTER FACE, 30, rue Condorcet, 75009 Paris. ; | 
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La ronde des heures 


INITIATION 


Michel Chanaud propose 

aux plus jeunes lecteurs d'ORDI-5 
.d'apprendre à lire l'heure, ce qu'ils 

feront sans peine quand ils auront 

vu le graphisme attrayant de ce joli 

programme qui comprend parfaitement 

les énoncés horaires les plus divers. 


Me dos 








FOR 8=1 TS 1€ 
































er 
RS PRINT AT S.iS; OH: AT 4.15: 0% 
T 28,15: 0 

16 LEFT HaINT (RNDEIRS +2 

1820 LET M=CINT (RNDx12))+%xS 








. HP=8 THEN LET HP=12 
RETURN 
REM 


560 FOR R=@ TO RM 
576 PLOT R*CM+XO, RESM4YO 
NEXT R 


: 1005 PRINT AT 2,19; 08 
210 LET AM-=-PI+(75-M) /S@ 1818 PRINT AT 2,19) "HEURE = “; 
22Q LET AH=(SxPI/2) -(H#PI/6) - (M 1850 LET Té=" k 
“Ans ee ie 
250 LET CH=C GOSU aé , 
340 ce 142 IF Ré="X" THEN GOTO 1@@@ 
SSû O4S IF Ré="H" OR CODE R#$=118 TH 
Et EN Goro 1109 ee . 
Sac 1868 IE R$+'@" OR R$2"9" THEN 60 ! 
| TO 1aio 
sh 1078 PRINT R$:; 
516 CLS 1960 LET TH=TS+RS 
328 PRINT Cé 1890 NEXT 
520 BLÈT RRCH4XO,R SH+Y0 1182 FE ALUTS A 
S Q L2 + + + = 
35@ NEXT R 1119 IF HP>12 THEN LET HP=HP-18 
1130 IF 
119 
12@û 





LET T&="" 


+20 GOSUS 12&@8 
4SO IF HP<>:H OR MP<>M THEN GOTO 


+55 PRINT AT 19, 15: 1250 FOR J= 1 TO 2 
460 PRINT AT 30,1 REÉRORISELSE A 1240 GOSUR SO. 
RO TER 1ede IF R$="X" THEN GOTO 1208 


: - 
410 GOSUB 1008 18 
13 








465 PRINT AT 21,16;0$+" 1845 IE Ré="M" OR CODE R#&=118 TH | 

476 LET REP=REP+1 EN GOTO 15350 | 

489 FOR J=1 TO &@ 1250 IF RS+<>'U" AND RE<>"J" THEN: } 

462 PRINT AT @,8;' "ge GOTO 1500 

d8S PRINT AT @,8;° mm" 1260 IF Ré="J" THEN GOSUB 1500 

490 NEXT J 1278 IF Ré="V" THEN GOSUS 2564 

dal NEXT À 1880 LET J=y-1 

498 CLS 1590 ECTQ 1521@ 

495 PRINT AT 6,2;:REP;" BONNES R 1300 IF Ré$<"O" OR Ré&>"9” THEN GO À 

EPONSES SUR 1@* TO 1240 

494 IF REP>=Q THEN PRINT ,,° 1310 LET T$-Té+R# 

C""ÉST TRÈS BIEN" 1215 IF LEN Tér4 THEN GOTD 1290 

496 PRINT AT 15,5; "UOULEZ-VOUS 1920 PRINT R$#; 

REUQUER _? (ON) * 1590 NEXT J 

497 GOSUS 5800 134@ REM . 

498 IF RON" THEN RUN 4@ ===" nn Ë 

429 STOP 

Saa REN 1980 JE Tés"" THEN LET Tés"or 
HAMONRE CODE SCENE CS 1551 IF LEN T#=1 THEN GOTO 1555 À 

1582 IE Téi1)1="/" THEN GOTO “1800 | 

591 LET REP=REP- 1388 IF TS TO 2) = TC TO 

SG4 PRINT AT 19, Îs; “il Y B ERRE 22" JHEN GOTO 1200 

R" 1555 LET MP=URL TS Ë 

SQ8 PRINT AT 21,18; É 1360 IF NOT FR AND NOT MO THEN R | 

Ste te Here AND MP<>M THEN GOT ÉTURN é 

0 50e 1870 IF FR THEN LET MP=6@#MP 

515 IF MP<>M THEN GOTO 7008 1560 IF MO THEN LET MP=60+MP 

516 REM 1390 IF MO THEN LET HP=HP- 


1 
1408 IF HP=8 THEN LET HP=12 
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INITIATION 


200 IF INKREVS<?;"" THEN COTC SaG@ 
SAIG LET RS=INKEYS 
IF_R THEN 


5030 RETURN 
SOdG REMH 


r@86 SLOU 

7806 IF INKETS="" THEN GO0T0 7S6@0 
7900 GOTQ 1üu 

6200 STOP 

3GQ0 RENM 


ERSERRRE 





3188 DIN 
LET 


Te 102) =" Je 
TO 10712112. 


qu 
Li 
[a] 
re 
La 





ue ur 


PL) 2 


SES TR USERS 


BD NOUVOUSE JDR Re 


DO LG 0 D 0 CO DD 0 CO LD OO DO 0 
BÉBÉ EÉRES IEEE 
ONE BRE OSEO C0 
DRGODANIEUNEGIDO HOUR LP 

Fr 

Fram 

14 
HNN0ONNTONONNON0NNONN ND0O00 
Lit it  n il is DS SSD li) 
LeLoimiminlmimimieln elu im mie ns sl n ns CE Ps ms 
HEURE. NPIONI 


mi 
Ü 
# 








ZX english? 
(Spectrum) 





. 


L. Delreux vous propose un canevas 
de programme d'entraînement au 
vocabulaire anglais. Les DATA qui 
terminent le programme doivent être 
développés selon les besoins 

et la progression. 


8 CLS 
19 PRINT AT 18,9; "ENGLISH" 

11 PORE 25600 , 70 

18. BAINT 4? 17,5; "PRESS ANY KE 
18 PAUSE @: cLs 

20 LET SCOREcd: PAPER 1: INK 7 
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388 
RE 













9123 LET crise TO _S7281="S#" 
9154 LET C$i5895)="8" 

9155 LET CHi48S TO 4@4) =" 
G126 LEF C$t4r7 FO FES} 
9227 LET CH(43S TO 456) =" 
G128 LET Céid4dg TO dS2i =" 8" 
9129 LET C$t46S TO 467) ="4 
9139 LET C$t482 TO 489)= 

G181 LET C&(497 TO 490) =" “. 
S152 LET CSSS TO S30) =" 

3155 LET Cé(Sd47 TO 551) =" "à 
S1S4 LET C$(S58 TO S68)1="S fi 
3185 LET Cs(Sis TO Bin =: 
3156 LET C$(560 TO 586) =" 6 
G137 LET CH(S90 TO 59%) =" ne. 
3138 LET Cé(612 TO Ead4)=" & 
189 LEFT Cé(Gé4 FE GSS6 "SE SN 
G14@ LET ceiersi sl 

3141 LET C$(688) =" 

S189 RETURN 

S2QG REM 

3218 CLS 

S228@ PRINT 





@G PRINT 
D'"'HEURE Ê 


EXERCICES DE LECTU 


Q248 PRINT TRE st" SUR CA 
DRAN Fr 


3250 PRINT 





S285 


m 
ps] 


m 
(ft 


e 
aaa@ PRINT AT s 


AR _AIGUILLES 





EE Te S 


DRINF 108 2@; ns 

PRINT AT 28,17, %—" 

4@; "HE CLOTURE L 

PRINT ,; , "4 PERMET LE ‘"“HOQ 
(EX a 


ERrNE 14 «4 PERMET LA FRAC 


s+85 PRINT 2° FERMET LA CORKR 


SH dass NATR : LES FORME 


Lu 
PRINT “Se, TAB 19; "m 4H — 


PRINT TAB 19; ‘us 4H -15" 
PRINT TAB 11, "4":TAB 19; ‘en 


SH : 
S4dg PRINT "SONT ACCEPTEES";TAE 


ETC... 
STATUS" THEN GOTCO 945 
RÉLREN 


LEAR 

SAVE "HEURE" 

REM RAND LSR 8282 
REM SGSIiH 

RUN 





80 
30 
40 
SÉ 
4s 
Te 
47 
45 


DER 1: CLS 
DIM À (ad) 

PRINT AT 10,7; FLASH 1; INU 
Side L'e.0 et _ 
PRINT AT 15,5; "UOCABULARY T 
PAUSE 189 

CLS 








LS PRINT TRE 5; "HOW MANY WORDS 

78 PRINT TAB 8; "YOU LIKE TO TR 
Y?7i1 TO #0): 

59 INPUT 6 
D * IF «21 OR B»20 THEN GO TO 8 
199 FOR C=1 106 | 

110 FOR Dal TO INT (RND#280) +1 
120 RÉRD ES: RERO F$: RERD X 
130 NEXT D 

140 RÉSTORE : CLS 

150 IF _A(X)21 THEN GO TO 110 
180 LET AtX)=1 

170 PRINT INK RND+*7; PAPER 9; "0 
UVESTION NUMBER ";C;" 

180 PRINT "UHAT IS THE FRENCH F 
OR": TAB dE; "7" 

182 PRINT 

190 INPUT A6 : 
200 IF Ab=F8 THEN LET SCORE=5C0 
RÉ+1: BEEP .1,8.B#SC0RE: PRINT F 
LASH 1; INK 2; PAPER S,"YES, ‘5F 
$:" IS CORRECT" | 
b1o IF AS<oFS THEN PRINT "NO 1: 
M_SORRY.THE FRENCH WORD FOR ";Ë$ 
TAB S,"IS ":F$ | 

220 IF CcB THEN PRINT INK 8; FL 





ASH 1; BRIGHT 1; "YOUR SCORE IS N 
0 _"; SCÛRE 

230 PAUSE 250 

249 NEXT C 5 

250 _INK 2: PAPER 7: FLASH _ 1: CL 
S : PRINT AT 8,9;"IN THAT TEST Y 
DU SCOREC "; SCORE: ‘/";B 
252 IF SCORE«G/2 THEN PRINT AT 
9,3; "YOU MUST WORK HARD" 

258 IF SCORE=B THEN PRINT AT 19 
:3; "YOU'RE À GOUD STUDENTI" 

25e ÉGUSE 207 FLASH © 

15 : 

280 DATA "EUVERYUHERE‘", "PARTOUT" 
: 1, "SELDOM", "RAREMENT" ,@, "OFTEN" 
, "SOUVENT ",3, "NEVER", "JAMAIS"; 4, 
RALUAYS" , "TOUJOURS, 

290 DATA “VERY", TRES" ,6,"MORE" 
NN Te dde 
4 ûl ûl Êl 4 

300 DATA “THANK YOU", "MERCI", 11 
, "ONE" , "UN" ,12,  TOU" , "DEUX ,15,; 
THREE" "TROIS", 14, "FOUR"; "QUATR 
“18 "ÉIVE" ,PGING",18,"81X","SIX 
"19, "SEVEN", "SEPT" ,18,"ÉEIGAT", 
HUIT" ,19,"NINE", "NEUF", 280 

320 $T06 | 

359 SAVE "ENGLISH" LINE 5 


N'espérez pas vous endormir avant d'avoir écrasé tous les moustiques 


éparpillés sur l'écran. (E. Le Chevalier). 


1 REM MOUSTIQUE (CS ETIENNE LE 
CHEVALIER | 
LET fi=1 


































# 
NT XSL JEU CONSISTE À 


25 PRINT 
ee CASE LPS NP RAPREE UNE TOi 
27 PAUS É 4Ed 
SO CLS 
35 ERINE Frs des 16; 
4g Z=1 19 


5 LES L=I# 


R E 
S9 PRINT AT Dre 
SS PRINT AT i 
see LET B=B+i{ ER EvY$=" &8"3 -{INKRKEY 
: a BSLET A=A+CINKEV $= "pt: -/ INKEY 
7.109 IF ifA=X AND B=16) Of {A=zxX A 
OR (A=X AND B=18) THEN 






re 

Fe 

a 

H 
AAT1S 
UUDTD 


15@ SEre nt 
S 






5a8 REN, SEE 8,8; 
31 PRINT “POUR RECOMMENCER FAI 


PRINT 
32@ EDR "POUR, ARRETER FRAPPREZ 
UNE RUES SAUF'""R" 
33@ PAT AT 18,6;'"E E ù 
345 PRINT AT 16,16; RARE ca 
SSQ FOR F=1i TO SG 
355 NEXT F 





1e PR : 
ELIMINER LES MOUSTIQUES ET SE CG 





36 PRINT AT 16,16; "RRR..,.2Z2Z2" f 


36S FOR F=1 TO S@ 
270 NEXT F 
25 IF INKEY$="R" THEN GOTO 486 


S9 IF INKEY$<>"R" AND INKREV Se; 


"" THEN GOTO S96 





505 PRINT AT 8,4; "VOUS ETES:" 
= PRINT AT 6,7;'"# E EE EE 









TAB 7; 'E8 SN EE EE 
T5 7;'E 8 5 NH 
TAS 7j" EN # Æ 





TRE 7 "5 E 
NE BOB INSEE SRE Fr 
548 PRINT AT #132 | “ON RECOMMENC 
sis ie MySTeS.ruEn e9re,409 


pa mammiN : 
WUNE ONU 
HORDE EN 





6306 
635 GOTO 365% 
64G SLOQU 
645 FOR P=G TO 1ù 
559 PRINT AT X,20; ‘HSMEIUEE" 
655 PRINT AT X,288;" 
668 NEXT PF 
66S LET A=h-1 
678 GOTO 680 
675 STOP 
930G9 SAVE ‘MOUSTIGUES" 
3S99 RUN 
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Sésame (ZX 81) 


Comment protéger vos programmes 
pour qu'ils ne puissent s'ouvrir 
qu'à ceux qui connaissent la formule 
magique ? Avec un code 
alphanumérique à l’aide de ce petit 
programme de J.M.Pabst. 










GHREM ENTREZ LE CODE: "tt Gos SI UOTRE CODE EST: ZX 81 
UB ?PÉRND<SRARND GOSUE DSURND FAST 
af VAL ÊTRE FAST GOSLB ?FORNDE4 FE ALORS TAPER POKE 155885 ,CO0DE ‘“‘z" 
AND GOSUB FORND?=C SAVE LN EPYAT POKE 16589,CQODE "x" 
LI HR LPRINT ZZZ POKE 16595,C0DE ‘ ” 
8 RE POKE 166@1,C0DE “6 
3 REN “"16583- ea-as-16601-n7" PQKE 16647,COQDE ‘“1" 
S REM “EL AR 96 CODES-MACHIN 


E.DE en R Xsbos® 
REM 







3997 SAVE “NOM DE PROGRAMME" 
3998 RAND USR 16538 
3999 RUN 










AT 
1@ SAVE 
ee 













Machine express 
(ZX 81 16 K) 


Y. Moyaux vous offre 6 routines 
machine ultra-courtes qu'il vous sera 
possible d'implanter dans n'importe 
quel programme d'animation selon la technique 
du REM initial : ces brillants exercices devraient 
préventions.faire tomber les dernières 
des plus hésitants vis-à-vis du langage 
machine pour lequel le ZX8 1 est un 
merveilleux initiateur. 


REM E£RND7- #4OH7 6 CLS 7= 
RETURN #C0S / LET ARR RNR RE RMMINX 


200 cos 
24 # 
ELLE LET 
6 


ÉCRAN REMPLIT EINSTANTANEMENT 
CODES R PORER 





15514 +2 E 
16515 12 £ 
16516 64 BN£ 
16517 25 7 
15518 22 - 
EE ; be 
5 1_REM E£RN FAST _E£RNDZ F 
16621 Se 4 AST SON LERENT # ŒUNS OÙ TR 
1652e SE & M OKXXXXXMM INR MN IR KM ALI NENTILNE AI ION AC 
16525 126 E 
16524 85 7 
18888 ELA ds SCROLL MERS LE HAUT 
16527 55 7 
16526 26 = 
18529 188 7 18514 42 E 
16855 254 RETURN 16515 28. £ 
15531 24 ? | À 16616 54 RD 
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is 6 
16526 3 un 
16824 223 FRET 
16522 4e E 
15523 1e £ 
18524 Gé. RND 
16525 35 ra 
16525 223 FAST 
168527 2ÿs SGEN 
16528 22es LERINT 
16529 - e 
16855 eùr Ur 
1685351 5 
16552 Ex SOSiE 
165353 176 EE 
16534 201 TAN 
16535 BL x 
CGDES #4 FOKER 


RE _E (RNDM ? EPS GOSUR PIÉ-UAL 
Faër FSGN 8%  GOSUB E70 FFAT. { 
LORD AT TAN XXXXXKXKKHK REIN RINKICNR 


SCROLL. VERS LA DROITE 


15514. 42 E 
18515 15 € 
16516 54 RND 
18517 1 & 
16518 &e 7? 
16519 a 

156520 167 E 
16581 2537 GOSUS 
16528 Es PI 
16523 6 Ca 
16524. 22 _ 
15525 EL97 VAL 
16526 228 FAST 
16527 43 F 
15528 208 S3hf 
16528 Z =, 
16530 BL 3 
16531 a 

16532 257 GOSUB 
16583 184 E 
156534 35 7 
16535 Sd a 
16836 a 

18537 43 F 
15538 43 F 
18539 193 AT 
15545 5 ; 
16541 239 LORD 
1554S 193 AT 
1654.23 2ai TAN 
15544. 61 X 
15545 62 x 
16545 Sz x 


CODES À POKER 


1 REM_E(RNDE ERST SEN °S EE C0 
B PI RUN GOSUS ETAN XXXXXXYX 
KXKXXXEICHICK 


SCROLL VERS LE GAS 


16514 42 E 
16515 16 € 
16516 64. RNEC 
16517 dS FE 
16518 228 FAST 
15519 289 SGEN 
1658208 ps Le 
LSSEeL 33 s 
18522 a 

16528 167 E 
16524 837 GOSUS 
16525 66 BI 





15525 L e 
15527 247 RU 
18528 2 

16529 337 cusus 
16530 184 

165321 2e Fan 
18532 621 # 
15533 SL X 
16534 61 X 
L6S2RS SL x 
CODES A FOKER 

__E REM EERND7- dd RAND 7=Y id. 
LIST TAN RER EEE DLL TARA VE 
INVERSION VICEO 
16514 48 E 
1&Sis 18 £ 
16516 64 RNE 
LSSL7 3S 7 
16518 8e _ 
15519 a 
16526 5 LE 
ISS2E 23 % 
16522 iSé 7 
16528 23€& INPUT 
LES24. 188 E 
LES2S 118 7 
15586 35 td 
16587 15 € 
16588 249 RAND 
16589 35 7 
15532 ag = 
16582 62 “ 
16582 22 _ 
15533 186 Æ 
15S34 32 & 
16555 24@ LIST 
LESS3S 284 TAF 
16557 EE *X | 


CODES A POKER 


L REH RERNE PAUL FAST _7SGN 8 
GORUS FZAT { LORD TAN Lx 
xx ARE X RNA RIT AK RRRIX MIX 


SCROLL VERS LA GAUCHE 


16514 42 E 
16515 18 £ 
16516 Gd RND 
16517 35 7 
155183 6 Fes 
26519 22 _ 
15520 197 VAL 
15521 229 FAST 
16522 35 7 
16529 289 . SON 
16524 1 Le 
16585 SA 3 
16526 a 

15527 237 eosus 
16528 176 ES 
15529 43 F 
16530 54. a 
165931 @ 

IE 2 3 
15524. 193 ex 
16535 

16536 2392 LORD 
16537 * 2BL TRN 
15538 GE # 


CODES A POKER 
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UTILITAIÏ RES 


Loto (ZX 81 16 K) 


Faites appel au langage machine pour 
soulager votre imagination et retenir 
les numéros qui ont le plus de chances 
de sortir. (J.M. Corbisier) 





LS 
3SG PRINT "NOMBRE DE SORTIES DE 
















CHAQUE NS DERUIS L'"'ENTREE D 
FER re DES TIRAGES Dti 
NOMBRE DE TIRAGES DEPUIS LA S 
CÉRNIERE SORTIE DE CHAQUE N@ ORNE Den 


SITUATION AURANT 468 SAUVE FLOTE" 
À 







L æ 16 4 RL + 46 16 SCT Et À 
8 5% 27 11 BE 12 47 À 

3 S 18 25 SS à 48 1 

& 12 19 TL S£ S ‘49 ZL 

S 2 28 9û 2S 3 

6 à 21 17 36 13 

7 18 35 6 37 1 

S 3 23 S 38 Z 

9 5 24 13 39 6 

19 £ 25 1 4G 5 

11 26 9 4i À NOMBRE DE SORTIES DE CHAQUE NO 
12 6 27 7? 42. & DEPUIS L'ENTREE DES RESULTATS 
15 14 28 41 45 15 DES TIRAGES DU LOTO. 

14 2 28 17 dd 1@à 

15 36 4 4S 6 


eù FRINT 'ÉRRe « "MENU" = 
==" : *INTRÉBUGT TON bÈS 
: # 8 « PREUISIONS",: 
STATISTIQUE DES SORTIES 
d SAUVETAGE SUR ‘Rte, 


OT Be C9 F0 2 SO OÙ 4 ON LOTO ES 
HESOGSCDESESCGEGE 
HOGSFRD6OB6E968S 
566688 -F602608 


dde 


A+108 
ENDROPUET TON DU RESU 
Por Er AGE "IN, 


1 TT 5 
115 PRINT TAB te CN OC Toi 61)1:;:6; 
Hess RY=AS$S+CHRE 


PRENT AT 6,0; “UALIDATION O/ NUMEROS SUSCEPTIBSLES DE SORTIR 
Î AU TIRAGE 5-04 APRES ANALYSE 
FOR I=A TO 5 


NEXT 
PRINT AT 85,8" 
FOR_I=RA TO 5 


LE LA MOYENNE ARITHMETIQUE 





NEXT I MODALE 
IF INKEY#="" THEN GOTO 130 S6 48 
PETINREY SEEN" THEN GOTO 65 
MEDTIANE 
LET A=PEËÈR 17203+2S6+PEEK 1 54 39 dd 
>=534. EN LET RS 2545 
BOKE 13404 NT {AS à e MOYENNE GEOMETRIQUE 
0RE. 172053 2ACRSSRENT tA/256 5S dd 47 
COR Een 10 EN Né \ A MOYENNE HARMONIQUE 
IF NÉYCEHE) = THEN GOTO 19 À DNS TSRNES 
EXT I 
ET NS=STRS CIN TO I)c>"E 
N&E TO L)+1)+"/"+STRS (CC 
AL NSCI+E TO JI+INSC TO I) ="5S8")1 
GoTO 1 
308 PRINT “NUMEROS SUSCEPTIBLES 
DE SORTIR U TIRASE “;:NS;" APR 


AR 
ES ANALYSE", ,,"DE LA "HOYENNE ART 16514 : 


5 :118,118,49,155,753,826), 
THMETIOUE Le 2° déD Î°DE LA MODALE 1ES2R: 74,188, 74,04, 70.,168, 
A "DE Li MED IANE* anis ist 16526:75,2.28,2,59,0, 
É'LA | BÔYENNE GÉOMÉTRIQUE" ; 404 165S32:8,4,9,6, 727 
"DE MOYENNE HARMONTGRUE 16538:9,9,11,15,1S,17, 
280 RAND L'hab 16590 16S544:18,19,19,S6,0,2, 
ea GOTO 165S0:2,5,3,4,1,5S;: 
seu PRINT ‘" NOMBRE DE TIRAGES © 16556:1,6,1,7,2,9, 
EPUIS LA","DERNIERE SORTIE DE Ch 16568:2.:11,1,15,2,17, 
AGQUE NG"," SITUATION AVANT LE 16568:1,16,1,19,2,36, 
“NS 16574:1,0,0,8,0,0, 
316 RANE USR 17995 16560:9,0,0,0,8@,@, 
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16585:0,0,0,8,205,58S;, | 16922: 


























À 654 ,25S4,251,32,9,205, 
16598: 15, 62; 1,54, 132 64, 16925: 105,8,201,S :195,241, 
16598 : 42,18,64,96,1,192, 16984 84.6 1903418 6,64; 
16604 :0,9,534,133,64,9, 16948: 1 PE pires eat 
1610. 84.186 04.42 2137; 16946 : 126,16,248,39,1660,64, 
16616:64,9, 1139 ,64+,9, 1GAS2: 19a8,40,4,25,2S,24, 
16622 :54,141,64,239,164,45S, 16958:249,493, 126,20S,29,281, 
16628 :15,194,160,181,228, 16964:58, 443; Dis tsaes 2:21, 
16654 : 19$,168,2 , :22S,160@, “ 16970: , 3,39 52,205,167, 
16640:S52,9393,143,6d4,34,128, 18976:14,121,254,1,201,83, 
16646: 64.62,0,60.62:119, 16982:166,64,1826,6,:28,939, 
16652:25,16,292,42,186,64, 156988:35, 134; 254,18,48,282l, 
16656: 17:6,0,25,:950,192, 15994:16,247,39, 165,64,126; 
18890: 203 48 dé 280049 17G00:229, 24$,29, 21, 226,35; 
: +: H L 2 17008:126,35.,229,2û0S 28 : 21; 
16676:35,24,244,229, 42, 125, 12018:299:1,64, d, ‘is,$e 
: 16682:64,115, 255, Se, 128, 225 ; 17016:225S, 126,254, R 4 52,282, 
: 16686:935,93S, 16, 263,20, 12e, 17Q24:2939,4,235,95e, 24,18@, 
18694. 204.241,38 220 ,8:19. 17090:535,165, G&4., 186,229, ebs 
16700:21,39,144,64,126,3S, 17036 : 29. 81,485: 239,12 SE es : 
16706:196,56,6,79, 6,1 2 17042 :205,29,21;: RE :5, 
16 9,:119,95,16,249,122, 17048:15,92,285, 27136. 254, 
16718 154,32,238,89, 144,64, 17054:0,32, 4857259: S , EE 
16724 :17,165,64,6; 4 , 17060: 24, 158, 56, 158, éd, 1: 
6730:1,126,99,190,932,4, 17866:18,2S55S,4, 145, 48, 264, 
16756:12,5,24,248,18,19, 17@7a:12 8, 245$, ia, 254, &,40, 
16742: 121,18,19,16,:288,38, 17873:53, 198, 28, 119, 35; 241, 
16748: 144,64,126,229,20S,29, 17084: 188.28,11 5,25,8$,126, 
: 167S54:21,2939,15,52,22S,99, 178098 :254,1189,48,2S0,201,62 
16760:126,254,0,92,242,2839, 17096. 1.86,192,64 42/18, 
_16766:4,58,90:168, ga, 186, 17102:64,17,6,0,25, F 
16778:229,285.,29,2 1,22 S,à4S, 17108:192,64,14,1,0, 
16776: 126,229,205,29,21,239, 17114:1980,40,7,1239,16,208, 
16784:199,2,1,192,3,939;, 17180:12,S3S,24,244,205,244, 
16790: 45,4, Sr4,:15S, : : 17126:66,939,1932,64,126,25593, 
16796:52,225,90,126,254,6, 17132 :196, 58, 202 ,18,06,52, 
1660082 :52,224,299,19/7,2,4, 17156:24, 216, 1a7,6, 16, 144; 
16508:37, Sd ! 2 2 17144:56, is, 24, de ; 268, 128, 
16614 :205,167,14,121,254,9, 17150:20, 96, 66, 62, 2,188! 
16620:46,16,205,66,66,48, 171S56:8, 16,2s Seed 8,7 à 
16826: 14,42,1293,64,285,166, 17162:22, 2,38,8:@,28 7 
16852:66,3d,15853,64,24,8, 17165:41;:41,41,41;41,2S n 
16896: 2929,2,98,209.909,66, 17174:9,2937,91,12,64,25S;, 
16644:48,9,482,135,64,20S, 17189:3S.20S, et EU 121 
16850: 166,66,94,195S,64,285S ; 17186:205,16%, 66,20@1,6 2,1, 
16856:85 :48,9,42,187, 17192:59,152, 64, 48, 16:64, 
16862: 64,205,166,66,34,137, 17195:17,6;, 8,25,:17; 
16868: 64,205S, 8,66; 22: 17204:0,14,0,58, 15%, éa, 
ÉD sain 64.205.166 ,66, 17210:6,6,196,22,1,12, 
16680 :34,1 9,64, 28RS,154,66, | 17216:535,16,249,535,27,122, 
16866 :48, 5. 2; 141, ES 28, 172282:1S1,32, Fee: S& 152,64, 
16892: 166,66, 534, 141, 644884 17228:2085, 244,6 6,38,132,64d, 
16898 : 182,64,126, 255,19 a,533; 17234: 126,253, 194,8, 282, 1à 
16904 :32,25,20S, 43, 15,958, 17240:66,52,24,2@7,118, 
16919:937,64,254, 255,46 ,249, 17246:10,2,8,2S1,118, 
16916 : 254,2 58.38 


% 


+ 





























j'être, Vos. res 
-e VOS idées sont peut-être les 
best- sellers de demain. de 
Auteurs de logiciels, rejoignez : 
de ue he 


ERE INFORMATIQUE 











+ 




















er EU] CET u 1 “ : 
Z + . HE3 8e c 8 + 3 e 
nñ 07 <n = M + o a DE 
.. 2 rs 35 LE 2 fñ — D: 
= 2 ZL 3 + m œ pr % & ce 
e wi Su Z > + un  & wc ; 
“ ù "92 DE À - m v Es EE 
Fe di: CU LT ñ ä 5 Fe s ss gel 
Œ Z Pn° 21 S x 2 v 2 “ LÉ 
En - | 4 4 . LC 
cœ = AT 0. UZ T De ee VEN F ère 
— + QE: Li pe A cn nu E caf cs cs us 
a - EL E « # Su © © Ov 9— © ©- Ru 
Sr up” EE an + = +2 = s sœ -L0 <a Te 
is rt Ca Hi ci: D 
an HHOD O0- D De EE Q— sou Use Ge ne pi oO e “ 
@ SO Fe sZAs Dhs 99 . CT . 2 2 
à. em ul LHYSHyag © M DOC bebe be LU be 
- Bd td Tree [dd DTD EC TCwu La 14 1 Œ = 
= 3e H H joies res nue LE "ess OZ UZ NZ CZ ZI." . 
7 4 gg 232 a ÉCOLE ATECEE-ATE LL T- q 
© -ê« GR chu ner Lonre re Le 292 23253 FE + 
Fu 5 H . 
ES Q UUO OO +WUTuUvILLUOOL: WUOOX LT vue ue ou us Es 
ns D — JŒu MH gZZA TU HHZOLHIZLOO HO SEA EXD TA ŒLZOQS 
.. C'‘o 2 LU) Le Li U 
ns Le 099495090999 931999999 9090900009 NO -WNWO 
Es —— D OA 090 DDR 012 09 AUS AUS AN QUE SD DONDOdane 
es - GUEST UE OS HODID O0 — 1010 IDD > DO MOGOOM A 
He os x [1] (rp,2e WOW 7 0 uw AMAR 
DS (o) | 
ss Ty 
Es Où _ : le) 
“". ; So o l- PO @  : Z © 
où a : mn Eu cu em OL ŒC li cb] Le) 
". O':: L 00 MO O# be LL OO T SE 
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D 2 E 2e +00 re Su SR 5 à |. £C OO 3 
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Le T © ZE Dm MA S+OIDAUD EME D + BU. + SAUT - € 2 © ©. Ô 
Le on > W <> --144004 - - A ss nd UYT 4 GEt+ 
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= ETS € CTTITTTTTT LM 2: + 2Z nLdAZz à : ee, 2505 
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CG" on ? AUTSINS NOU DTVSANNSHNDD-ONSO-99 Dme-9: DVOS 9 9O se [) 5 Eu 5 
C A AQUAU 3000000009 A--NN JE NCORZRON MO pol 3 SIL O0 
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nu J 1 Wim ns > T © T 
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£ 1 REN 3 LINKEY à: ASHINKEY Sa à AC 
BTAB ERNDB7ATN HIRND( NEXT 4% nf 
NDËT AN S CONT RNDU7?7ERNDYGFFOASN 
FOR _RND RETURN I1ASN FOR AND RET 
URN BASN, FOR RNDH_AND, RNDY MGINK 
EYS FOR € 1 AND RNDLN 7"? REM_R 
NDS NR (GRTLLE S2) FOR ,:ACS ?AEN 
PRNDUGINKEYS RETURN ASN_,INKEY 
J JË INKEY RAF INREY 
EF AOE: N Éd ) PENÉEY SLN ge 
SRFINREYS STE 


& RE ge SUR moe ju 














) © < EP 

Êr -C en É 124578 À 
& < JÉA< CES ASEFSCÉE ) / 

æ ÉSCLEE" EE ns sauts Fr 


AS 
AT 8,@;" 


Sa LET ADD=16685S 

3SS FOR I=1 TO 12 STEP 2 
4 LET Y=I+1 

4S POKE ADD ,URL ASÎI TD Yi) 
59 LET ADD=ADD+1 

SS NEXT I 

6S PORE 16615,28 

PROKE 16616,28 


érez vos menus 


78 POKE 16664,8 
75 PRINT AT 1; 18; 


‘86 LET K=USR 16514 
999 SToP 





16514:17,68, SSe 14+,826,9385,:45, 
16521:65,6 2 6,203, 127, 194, 
16528:159, éd; 198, 155: e@4 , Fr 1 Gé , 
16535: 16, 843, 19, :135:6 142, 
16542:201, 33; 334, Fer: 126, Sea, 37 
Tocrs ever 1784 DE 6@,119,19S, 180, 
16556: Gé. ,28,2 19, 45, 126, 68, 
Téses. 119. 8° 121,2S 4,28, 268, 895, 
16570:64, 254; 29, 282, 235,6 4,254 
16577:50, 0e: 235, 64,S50,218, 64, 
16594:562, 1 58,84, 69,208 7 À 


ra 

16591:16,0,17:218,64,20$, 107, 
169598: 11,195,294,64,31,0,5S1, 
16605:55,0,16,44,95,46,49, 
16612:49,42,0@,n3,aR,17,28S, 
16619:26,20%,119,202,1853,64,58, 
16626: 44,65,254,1,202,26,6S, 
16655 :20,0,17,5,65.:20S, 
16640: FSI ac 194 ep eisen 17 
15647:184,180,177,178,128, 174, 17 
16854 : 188,179,188,198,128R,166,128 
16661: dr do de Se, 
16668:0,17:58,605,205,107,11, 
16675:195,498,65,0,184,18S,180, 
16682:181,201,1,1@,1,@,1, 

2:5,36,97,28,118,0, 





Le ZX, ordinateur à tout faire, peut aussi se transformer en maître d'hôtel 
pour vous suggérer des menus en fonction de la saison, de la rapidité 
d'exécution et du prix de revient ; pour la petite « base de données culinaire » 
vous pouvez vous inspirer de celle que nous proposons : étudier auparavant 
le codage qui précède chaque plat (par exemple le chiffre indique 


la saison). (P. Mauclair) 


50 REM +54 :GENERMENUEHEEEEX 







SD LET FH="VEUILLEZ RECOMMENC 
VOUS AVEZ COMMIS UNE ERREUR. 

SG LET G&='"RERRERRERÉÉÉERÉERFTE 
FERINRNERR EE" 


FE 


‘ 





Q PRINT "OUELLE EST LA SAISON 
148 PRINT AT S,G;"TARER °MHIUTT 


150 PRINT TAB GS;"'""PRI"" POUR PF 
RINTEMPS" 

2160 PRINT TAE S;"""AUT"" POUR # 
LTONNE" 


179 PRINT TAB S; "QU ""ETE""" 
165@ PRINT AT IOD,31:E% 


130 INPUT S$ 
288 CLS 


210 IF 5%= 
S$="AUT* on 
820 PRINT F# 

239 GOTO 146 

231 REM 

252 REM ===AUTRE CRITEREz==S= 


248 FRINT _"OUELLE DUREE COMPTER 
SODRs TEST LA PREPARATION DES 







CENT 
S6= PRIS 
THEN ÉoTO & 


850 PRINT AT 5, GO 'TAPER ous 
PGUR DRE LONGUE" 

L Fe nb TAE 7; Fan a" POUR MC 
eee PRINT TAB 5; ""%,U" PROUR COU 


288 PRINT ÊE 10,3;:E# 





ARE 
# à 

Éa 

{3 

== JL > 

33S REM =2=FASSE 3 DE LONGUEUR=z= 
.S4G IF Cé=".." THEN LET Eg=" 
SS6 IF Cet," THEN LET Ce" ." 
SSL REM 
3ES REM ===AUTRE CRITEREZ==S= 
3S@ PRINT "ENTREZ MAINTENANT LE 
ERIK DE 
20e PRINT REVIENT APPRONIMATIF 
1] 1 LE « ni 
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UTILITAIRES 





388 PEINT "UOUS CONVIENT," 
399 FRINT nÉ 5,0: "TAPER “vit F 


DUR ASSEZ EL 

tri PRINT TAE gi"""a"t ROUR MOY 
Der PRINT TAB 6,"""S"" POUR FAI 
429 PRINT AT 10,1:E# 

SO INPUT D$ 





46g © 

4SL RENM 

4S2 REM ===TIRAGE ALEATOIRE=== 

ABS LET MSGDS=MODS + 

499 LET I=IN END EAO) +2 

596 LET L=z 

Si0 LET ALEH=459 

S12 LET ZID=6 

5290 SOSUB 729 

S22 LET R$&{IMODS) =PHCI; 

SSO LET J=INT (RHDE493 +51 

S48 LET La=:} 

S59 LET ALER=E5S59 

Be LET IhD=S 

569 GOSUE ‘759 

S62 LET R#&(MODS+33 =P& (43 

SV9 LET K=INT (AND+#49) +191 
zS5 76 


pu 


NT AT 15,0; LR 
“unie AUTRE ME u° AVE 


ge Eee DER CRITERES 3." 


SSSR REM (POSSIBILITE DE REFUS) 


G99 IF INKEYS#<>'"'N" AND INKEY$ge« > 
"O" THEN GOTO 6936 

790 IF INREYS="N" THEN GOTO 458 
7621 REM | 





FOR REM ==2FORPMULE DE Fihaze 
719 PRINT AT 16,9; £ 

726 PRINT AT 26,6; 

OUS SOUHAITÉE. 

759 PRINT AT 28,0; "EON APRETIT 


€ 

"74e sTOoP 
741 R 
750 REM === SP ADEQUATION === 
784 IF _ NOT (S&=P#&i(L.1 TO 3) OR 
BétLl,1i TO G1=" #j-fhen SOTO AL 
Po 7e NOT Cé=pP&il,4 TO 6) THEN 
SOTO ALER 

g80 Tr NOT D$&=P#(L,.7) THEN GOTO 
783 IF Phil) =RÉRCIND+1) OR Péi 
RS CIND+2) ESR P$ CL) =R& CIND +8) Fh 
EN GOÜTO 

784 IF HGBS = 4 THEN LET MODS=1 
739 RETURN 


292 SAVE ‘"GENERMENE" 
79353 GOTO 16 
STGF 


TASLEARU P$ DES PLATS 


1 
«: AHUITRES 


.. 2SALADE NICOISE 
... SSOUFFLE AU FROMAGE 


. SCAROTTES RAPEES 
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S 


3 


10 


AUT 


11 


12 


LS 


1.4 


15 


16 


17 


15 


ig 


&8 


HIU 
al 


[Es] 


2 


..1PETITE FRITURE RIVIERE 
s.  SSALADE PIENMONTAISE 
SOUPE DE POISSON 
.«. SCELERI REMOULADE 
... 1ESCARGOTS FARCIS 
-.SSOURE AUX PFOIRERUX 
* LLANGOUETINES MAYONNAISE 
2SALSIFIS À LA CREME 
... SGOUGERE 
 SCONCOMERE À LA CREME 
.. ICUISSES DE GRENOUILLES 
ss: COUILLES DE POISSON 
.2PIZES 
. SCHOUX-FLEURS EN SALADE 
...1BO0OUCHEES À LA REINE 
ss ICOGHJILLES ST JALGGUESZS 
. ICOEUR DE PRALHIER CSREME 


..PALLIMETTES AUX ANCHOIS 


se. SUJRMEON CHAHNPIGNOINS 


27 


26 


.-SSALADE DE RIZ 
.1CONTAIL DE CRABE 
ss. ACERVELLE MOUTON SAUTEE 
 BAUOCAT MAYONMHAISE 
. SFRAISE DE L'EAU ROULETTE 
.. ITOURTE RUX OURSINS 
. LASPERGESZ 4 LA CREME 
. LCPARBE MARYONNAISE 


" "= 2CROISSANTS AU JAMBEON 


etc. 


suite et fin 


12z 
..2CREME FOUETTEE UANILLE 
Les 
.- SBEIGNETS 
124 
« SCONFITURE 


""ITARTE CREME PATISSIERE 
126 
…_.. 2OEUFS EN NEIGE 
127 
.ACRENE 
128 
« . SYAOURT It 
129 
«.s 1PROFITEROLLES 
150 
HIV * IANOTX 


« LURCHERIH 
152 

-«2MOUSSE AU CHOCOLAT 
155 

...SBGATEAU ROULE CONFITURE 
154 

-.BYROURT 

185 

."1IGLACE PRALINEE 





rier perpétuel 





16 K) 


136 
..-2FLAN À L''ANHANAS 
157 
.2PETITS SUISSES 
135 
.. SSAUQIE 
152 
n.. IDIPESGMATE 
140 


HILUL , BATEAU AUX MARRONS 


.IFRUITS GIURES 


:-2FARD BRETON 


143 
: « « SRUGELHOF 
144 
. SMARMELADE DE FRUITS 
145 | 
.-1PECHE MELBA 
14€ 


s.. 2CHARLOTTE AUX S CREMES 


-SFRUITS 
145 
-"SPHIP FERDL 
145 
nus. LRMARRDINE 
259 
ÊTE *ISALADE DE GROSEILLE 





Les programmes de calendrier perpétuel ne sont pas d'un attrait fascinant, 
mais ils donnent facilement lieu à des variantes élégantes qui sont 
autant de bons exercices d'entraînement à la programmation, comme celui 


de M. Kourotchkine. 


REM "MOIS" 





PRINT 
IS ET L''ANNMEE séus" 


1 

e 

3 

S REM K) 

6 REM s=sassszssssazss==2sz2essssz 
7 REM CO) M. ROUROTCHKINE "as84 
SG REM ==r=2s2ssr2essesemememms 
a GOSUB 19ù 

19 LET 0=31 

11 LET L=S 

12 LET B-6 

13 LET X=25 

14 LET JYsl 

ee LÉT RS="e8861462508S" 
eû AT 17, 8; “ENTREZ LE MO 


22 PRINT TAS 8, "LA FORME HMAnA. 
PRINT TAB 4; "POUR ARRETER T 


2 NPUT Kg 

30 TE K&="FIN'" THEN 

31 IF LEN tion THEN oo Fe 
3S LET A$=" 19"+K&(3 

4@ LET HA=URL K&tT TG 29 

di LET A=UAL K&{S TO 3 


42 RE ===ssenmsesessenenméemsmess 
2 BEN ___CONTROLE DU MOIS 
o #5 iF M =0) OR (M>12) THEN ec 
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UTILITAIRES 


NOMBRE DE JOURS - 


sasssèess RRRSSRSSSSRESSES 
OR 


& (MSG) OR 1IM=9): 
Here THEN 








names 
cs GR 
pa 
m 
2 


Fe. 
Z 








54 M=2 THEN LET O= - x 

SS IF M228 AND. A-INT ÉRPEET ET 
THEN LET O=2S 
* GG hMEM =s====22=2=: ==> memes 

G1i EN ENTR: ÉS MOIS" 

62 REM ====2=202e222easecmenme 

Ta DIM M#118, 14) 

?1 LET 'M$(1) =" JANVIER" +95 

72 LET M$(8) ="FE VRIERT+A$ : 

73 LET MS&(S) = S'"+fA 

74 LET M$(4) 

75 LET HS$(S) 

76 LET MR(6) 

T7 LET M&{7) 

78 LET M$(S) 

79 LET PES 

Sea LET Hé&(iR 

SE LET mMéCIT}I 

82 LET Mæ(1i2 

83 REM = 

84 RE“ 

8S RE == PS 
2,26 LET RSUAL RMI +UJRA+INT (A4 

57 LET R=R+1-INT (R/71#7 | 

8 IF M<S AND A-INT (A4) 4-0 
THEN LET R=R- 

S9 IF R21 HEN LET xX=27 

QQ IF R22 THEN LET za 

A1 IF R=S THEN LET X=7 

Q8 IF Red THEN LET X=11 

93 IF R=S THEN LET X=1S 

QG IF R=6 THEN LET X=19 





Fichier ‘“‘cinéma’’ 
(Spectrum) 


Un clin d'œil derrière ce programme 
simple à entrer : ce fichier qui est 
consacré à enregistrer des fiches 

de cinéma (on peut en fait ficher bien 
autre chose), se présente aussi comme 
une succession d'écrans par l'utilisation 
de la sauvegarde SCREENS. 

Cette méthode est intéressante à étudier 
pour les fichiers dans lesquels 

l'élément graphique est important et 

où la routine de correction n'est pas 
nécessaire. (F. Huynh) 


S PAPER 7: 
169 PRINT 


INK G: BRIGHT 1: 


AT. _G@,9; INK 1; FLASH 
SUFIÉHIER ÉTNEMRS 


CG 


“SAS: IF Aÿ 


G a 
4 PAPER 1: : PRINT AT 6,8 
j'TERÉEEREEEEELÉÉERSÉFESÉE 
INT I "EEE E 


1,0; 
Slt" 


AT,S:0; "DE: _" 
PA cRÉALTSE 
LE : 


-1288 PRINT :"BUREE : 7 
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REN sz2z=22zzzsss22smsspeossms 
BE EDITION. DU CALENDRIER 
PRINT TAB Li MS 
FEI 

PRINT ne 


PRINT AT 84 83" ce M M 
5  C“;AT 4,8," 


BR PER 
BE LOS 
Dr @Dû 


FOR ZzXx “ii 87 STEP 4 
LET 528 
IF 69 Then PRINT RÀT L,Z-1; 


IF B+1G _THEN PRINT HT L,2;5 
PRINT, 


IF 820 THEN GOTO 1@ 
IF Z=27 THEN LET L=L+e 
IF Z=27 THEN LET X=5 
IF nd THEN GOTO 188 


Hhhh phphshs 
DRBS DUREE 
SNrRE Anenr 


pu 
ü 
wü 


see 


© 280 
QUE ** 


390. 


240 
258 





PRINT TAB 6;"- CE PROGRAMME 
PRINT TAB 6;"- AFFICHE TOUS 
PRINT TRS 6;"- JOURS DU MOI 
PRINT TAB 6; "- DE L'ANNÉE 
PRINT TAB 6;"- QUE AUEZ CHO 
PRINT. TAB 6;"- DE 1998 À 19 
RETURN 








11S PRINT ‘‘"FILME EN: 

se PRINT "CLASSE DANS LA SERT 
Fise PRINT ‘"APPRECIATION: " 

135 PRINT her Pen # 
146 PRINT ‘"AU 

159 INK 2 

2@S INPUT ÎTRE: “iA$: PRINT 
1:15 FLASH L;:AS$ 

285 INPUT *“ : "sNS: PRINT AT 14 

:29; INK 7; FLASH 1; N$ 

21 INPU k: PRINT AT S,S: AS 

Se@ INPUT A$: PRINT AT S5,11;:A5% 

236 INPUT A$: PRI AT 7,6:A% 

246 INPUT A$: PRI AT 9,6; AS 

256 INPUT A$: PRINT AT 11,9:A% 

268 INPUT A$: PRINT AT 15,21; A% 

278 INPUT AS: PRINT AT 15,19: 44 
268 INPUT AS: PRINT AT 17,15;:A$# 

2953 INPUT Ag$: PRINT AT 19,5;:A$#% 





MATHEMATIQUES 
















SX INPUT "“RECTIFICATIONS 7 ";:f ten INPUT "EXACT 7 *; ah IF A$£ 

1 IF nriare ra" THEN GO TO 208 1) ="N" THEN GO TO 500 

319 INK ; 3049 PRINT _AT 28, s° DÉMAREZ LE 
328 SRUE TNSSCREENS RGNETOPHONE" 






330 RUN 5 5958 LOAD _NSSCREENS ; 
SGQ@ PAPER L: INK 7: CLS Sase INPUT "EST-CE BIEN, CETTE FI 
2818 INPUT “NO DE LA FICHE À REC Re 3 " A AS: IF A&(1)="N". THEN GO 
HERCHER _: "5 LINE N$ 3aa 
3828 PRINT AT Q,G; "UOUS DBESIREZ 307e PAUSE Ed : 
: CHARGER LA FICHE NO" 308$ RUN 5 
: 3039 PRINT FLASH 1; BRIGHT 1; AT S208 PAUSE 4Ed4: PAPER 7: INK @: 


: 4@,15:;:N 


Caractères ( Spectrum) 


Pour ceux qui programment couchés pendant leur loisirs, Y. Maugé a imaginé 
une routine très instructive qui fait tourner les caractères du Spectrum 
de 90 degrés ; Une application amusante de la haute définition graphique. 









+ : isl TO 8: LET Pii)=PEEK 
Re sv AC -20.FOR à 3 : 
BTDOAULOTAILIEZOLBENE DIX NE /nt | iron Lois: LET r{i)=0 
. HVÜUDYe ML MIE ECO0T EN IT BXINY— hs © 70 FOR j=1l TO 8: LET rtii=rti) 
+at(8-J)#ip(ji>=zat (8-11) 
69 IF pij/>s=ati8-i) THEN LET P 
(j)=zpiji-2t(8-ii 
9ù NEXT j 
100 POKE X+a-i-15698,r (ti) 
1 REN 119 NEXT i. 
8 R 120 NEXT ä : 
3 REM 130 REM verification  … 
d REM 149 LET POkKezPEEK 83607. 
S REM 159 POKE 29607,249 , 
19 ÛLE 180 FÜR iz32 TO 187: PRINT CHRS 
20 LET i;: NEXT i 
39 DIM 170 PÈKE 253607,p0ke 
40 FOR 189 SAVE "caracteres "CUDE 54000 
PRINT 788 : 








Comment mettre votre ZX au travail pour 
obtenir autant de décimales que l’on 
désire dans une division un peu corsée ? 
Essayez l’une des formules ee 
de PI, par exemple 22/7... (J.M. Pabst) 





SAVE ‘GUOTIENIE" 
ë BRENT "ENTREZ LE RÉ nt ER 
PUIS FAITE PENSE LELTIE) 


paILl 
on 
© 
[eu 
Q 
I 
qu 
H 





re PRINT "PUIS ENTEZ LÈ .DIVISE 18 CL 
UR.ET FAITE e@ PRINT A;"* LBIUISE PAR *“; 
S PRINT "UNE FOIS LÉ’ RÉSULTAT 3AG INPUT E 
AFFICHE,SI", VOUS CESIREE FAIRE 48 PRINT EE: =" us 
APPARAITRE "LA SUITE.APPUYEZ S 4S LET &@= INT {RE 
LR LA TOUCHE: MR Sa se 4 PRINT Gi 
12 PRINT "SI VOUS DESIREZ FAIR SG LET A=ih-B:0) +19 
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GS LET GD=INT iA-E531 1802 DIVISE PAR SS5S5 = 

o 6S IF PEER 16442:4 AND PEEK 15 

. 44l<e THEN GOTO 168 . 814006 7241573099 /70/780S108S0992S 
78 PRINT G: SaBoSeensa 1240010 7e 1e DS 7m 
56 GOTO S& a Se 
108 IF ENKEV $=" IT. THEN 5070 15 PHISTSGSSEOTOCTICNSISSESOHEGSGGE 
110 IF INKEY#$<:"C" THEN GOTO 1€ SS13433120007210-303370 700810 G3S35 

& S32S584269066292134093146000 7419730 

150 CLS Sr'OFPSCSIGOSIN9SAS042GOGEROGRILTEGOL 
14@ GOTC 7@ ESAGTAES 7 












be eee 


Equa tions (Spectrum) 


Une solution courte et élégante de L. Delreux pour la résolution de systèmes 
de deux équations à deux inconnues. 








das _ 179 PRINT | 
19 PRINT AT 12,9; “EQUATIONS" 171 PRINT “POUR LA REPONSE: PRE 
11 PRINT : SSER N'IMPORTE QUELLE TOUËH É" 
12 PRINT TAG 4; "POUR COMMENCER 150 PAUSE 
PRESSER UNE TOUCHE. 199 CLS 
15 PAUSE Q: CLS 200 PRINT TAB SA; "X + "Bi "Y = 
14 POKE 23609, 70 nr 
20 INK 7: PAPÉR 1 210 PRINT TAB S;C;"X + "D; "Y = 
39 BORCER 1L: CLS . “ie 
40 DEF FN MINIZINT (RNDaN) +1 219 PRINT | 
59 LET A=EN Mi10) 230 PRINT TAB 4;'"LA VALEUR DE * 
50 LÉT B=FN Milÿi EST: "x 
78 LÉT C=FN Milo) 321 PRINT 
Sù LET D=FN M(10) 331 PRINT ’ 
39 LET X=FN Mi10) 232 PRINT TAB 4; "LA VALEUR DE Y 
190 LET Y=FN Milüi EST: ";Y 
119 LÉT E=AEX+B#v 333 PRINT er 
115 LET F=CxX+D#v 240 PRINT TAB 8;A;i"#";X;" + ";B 
130 PRINT INK 6; "L'EQURTION EST SORTIE SE | | 
se 250 PRINT TAB S:C;"#"iX;" + "D 
121 PRINT D NN ru 
149 PRINT TAB 8; INVERSE 1;A;"X 289 PRINT _ | 
+ "BUY = "IE 261 PRINT "PRESSER N'IMPORTE QU 
159 BRINT TAB S: INVERSE 10; "x ELLÉ TOUCHE POUR UN NOUVEAU PRE 
+. ts HER CE De #1 
189’ PRINT : 385 PAUSE à 
181 PRINT “UOUS DEVEZ RESOUDRE: 250 RUN _ 
x & Y" 290 SAUVE "EQUATIONS" LINE 8 











Equa tions 3°"° degré 


(ZX 61 16 K) 





Les mathématiciens démonteront ce programme court et précis de résolution 
d'équation du 3° degré proposé par J. Edel (qui voudra bien communiquer 
son adresse à la rédaction...) pour décomposer les différentes méthodes 

de résolution employées. 

L'écran affiche « À = », on doit alors entrer la valeur du coefficient de X® ; 
dès que l'on appuie sur « Newline » cette valeur s'inscrit à côté de À = 
L'ordinateur demande alors les valeurs de B (coefficient de X2) C (de X) et D 
(terme constant) puis il affiche les solutions ainsi que la marche à suivre 

pour recommencer. 
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470 IF Z=1 THEN GOTO 992 
48@ PRINT “POUR RECOMMENCER*“ 
RSS 498 PRINT 










































ANESET TON 





der. PRINT "APPUYER SUR UNE TOUC 
Sie IF INKEYS$="" THEN GOTO 510 
S29 RUN 
GOSTO 588 666 PRINT “ERREUR IL FAUT A<>@" 


619 PRINT 

520 GOTO 480 

T@R IF BaC=92:A5D THEN GOTO 74m 
718 LET G=RND 

728 LET R=0+1 

738 GOTO S0@ 

74e SERIE -B/S-A;"ITRIREE)" 


768 GOTO 488 
808 LET E=(9+nseD-B:x0) /(D:B+B-6# 


810 PRINT E;" (DOUBLE) “ 
82@ PRINT 


288 PRINT : SG IF E=8 THEN PRINT -B/'A 

201 PRINT ‘SOLUTION (S)" 840 IF E::0 THEN PRINT. -D/AYE-E 
288 PRINT 359 PRINT 

218 IF BiB=S+Ax0 THEN GOTO 768 S6Q@ GOTO 459 / 

e2Q IE SlinsDs (Sans0 rec) <OET 9SQG LET E=t-B-AeXx) /2/A 
ACFIARAEE PER) ESS RPARIEEERS THEN Sie IF D=0 des GOTO 93808 

GOTO Be 932Q LET F=560 C—4EAED X—- (B+AEX) 

Te BxB<SsA:C THEN GOTO 718 + (B+AEX)) /2/ À | 

B4Q@ LET E=(-B-SOR  1{BxB-SxAxC)) 338 PRINT Es "+";5F; "I" 
S3-A 948 PRINT 

258 LET F=i-B+50R (B+#B-5#A#0C)) 935 PRINT E;"-";F;"2z" 

SA 96 PRINT 

269 LET G2=E 978 GOTO 4808 

270 LET _R=F d 988 LET F=SOR (dxRiC-E+5) /2-A 
es IF EF THEN LET Q=F 398 GOTO 950 

290 IF E>3F TAEN LET R=E 1008 FAST 

368 LET P=60-1 181Q FOR P=1 TO 188 

310 IF SGEN A=-SGN (Px(Pz (RAP +5) In29 LET UVU=sEx(Es (ExA+6) +0) +D 

+0) +D) THEN GOTO 540 : 1@81 LET _U=F+{(FxiF#A+B) +0) +D 

328 LET P=P-18 LOSQO IF SGN VESGN U THEN GOTO 11 
Sa PET SCREL Sg4e LET X +F) “2 

F sR+ 5 ë À = fe 

SS& IF SGEN A=SEN (SriSs (SEA +) + IOUSÙ IF SEEN UESGN {XE Xe CXER+HE) + 
CI +D)1 THEN EOTO S68R 5) +80) THEN LET E=X 

368 LET S=5+168 186@ IF E+>X THEN LET F=Xx 

37@ GOTO _S56 17 NEXT _P 


fic =P Las LET Z=2+1 
3 È FEC 1990 IF ABS X<1E-5 AND br G THEN 
EE 6] 


Coi plexes (ZX 81 16 K) 


La résolution d'équations du second degré dans l’ensemble des nombres 
complexes est une application dans laquelle le ZX81 révèle toute 

sa puissance de calcul. 

Le but est de résoudre l'équation az?+bz+c=0 

où a,b'et c sont des complexes. 

Tout complexe s'écrit sous la forme : z=x+iy ; x est la partie réelle et y la 
partie imaginaire. L'entrée des coefficients se fait de la façon suivante : 
l'ordinateur demande A(1,1) qui correspond au x du premier coef, 

A(1,2) au y du même coef, B(1,1) pour le second coef, etc. 

Rentrer O pour les parties imaginaires pour que les coefficients soient réels. 
(P. Homsy) 


3S PUR ACI, 
ET OS =1, “THEN PRINT AT 2%xI,7:; 
48 IF J=R THEN PRINT AT 2%1,a27 







3 TO 


SG IF J=1 THEN FHRINT AT 2*7-1, SS FAST 
6; "COEFFICIENT VERRA BxI, 283: CHR$ 68 LET X=A (2,1) :9 (2,1) -A SRorie 
EST+LI "I": ZI; ", "id; ETIRE AR2:2) 4H (A(1,1) A3, 4 -A (1,2) + 
S2 IF Jz=2 THEN BRENT de: .2*1,:29 {3,2)1 

LS CHR STE MONET “=u«? 6S LET Y=2xA (2,1) *A(2,2) -dxtht 
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: 3918 RUN 


(2, 145 SLOU 
1859 PRINT AT 3,8; "Z=";C(1); CHRS 
LL (21+1(SGN C2) 10));:A8S Ci2):"x" 
|_PRI T 5,8; %Z="; CCG) CHRS 
fair{S6N ca té)j;n8s Cia Tr" 
IF EY$="" THEN GOTO 158 
© 18 CL. 
176 RUN 
sk 200 IF X>=8 THEN GOTO 285 
ben © 218 LET B.(1) -@ 
315 LET B(2)-50R (-X) 
E 4 : 220 LET B19)=B1(1) 
325 LET Bid)=-Bi2) 
350 GOTO 1ià 
235 LET B{1)=50R *X 
340 LET B(2)-û 
Lll 545 LET B(3)=-Bi1) 
550 LET B(4)-B12) 
| 2SS a 118 
| S6a FOR I=1 TO 4 
= 278, IF ABS CCI) <10++-8 THEN LET 
< D NEXT I 
290 RETURN 
: : 5799 STOP 
93909 SAVE ‘COMPLEXES" 





1, rss 2) +A{1, Re 11) 
57 IF Y=8 THEN GOTO 286 
78 LET M=S50R CERTES 
7S LET X2=(M+X) 8. 
S9 LET Y2=xX2-X 


99 LET B{11=S5S8R x2 

3S LET B(2) =56N YVasoR Y2 

189 LET B(3)=-508R X 

18S LET Bid)=-1:S0N Y+S0R Y2 
118 RE CALCUL DES ACCUS IONS 
215 LET C(1)=(-A(1,1)x%x(A1CE, 1) -5 
C123 +A (1,2) x (BR (2) -A(2,2)))3/(94 (A 
CL; LI EACE, IX HAL, 2) A (1,223 

219 REM 

128 LET Ci£)=(-A(1L, 1) # CR CR,80) -EB 
(23) +A11,82) #(A(2,1)-B(1)))/i2# (A 
11,13 #A(1,13+A(1,2) 4RA (1,292) 

12S REM 

125 LET CiSi=(-AIL, 1) # (RCE, 192 +R 
CII) -AT,27T # (A\2,2) +612) ))/18#x(A 
{1,13 #4 (1,1) +A (1,2) #AR(1,28))) 

127 REM 

1939 LET Cidi=t-Mil.ii#(ARIe.28) +8 
(2)) +1,24) #(A(2, 1) +B(1))I)/-(2xCA 
{1,13 #4 (1,1) +A(1,2) 4A(TE,2)7%) 

13S GOSUS 26G 

148 CLS 














Analyse discriminante 
(Spectrum) 


L'analyse discriminante est une puissante technique d’analyse de données. 

F. Blin s’est inspiré du programme de X. Linant de Bellefonds (la pratique 

du ZX81 - PSI) pour utiliser la haute définition graphique du Spectrum dans 

la représentation des points. Le programme produit une’ représentation d'écran 
qui discrimine les observations en autant de groupes qu ‘il y a de solutions 
(solution 1,2 etc.). Pour plus de renseignements sur l'analyse discriminante 
“Voir : Que sais-je ? n° 1854, Bouroche et Saporta, « L'Analyse de données ». 


18 be ANALYSE D'ISCRIMENSANTE 


1888 RES 
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Entriqaus 





PRINT “Combien de caractere 
INFEUT C 
PRINT “Combien de sotutions 
INBUT L 
PRINT ‘Combien d'observatis 
4 INPUT NO: CLS DIM M(INC,C+ 
1100 F T=1 TO NO: PRINT "OBSER 
UATION NO:";I 
1119 FOR J=il TO © 
1120 INPUT Mir,4J) PRINT MIT,J) 
1139 NEXT , 
1149 PRINT : PRINT ‘Solution de 
L'observation: “;: INPUT M(I,C+2 
j 
1150 PRINT ODÉRaE 
1168 PRINT INVERSÉE 1;'"'Ligne cerr 
ecte7".: INPUT Rg$ 
LL? IF Ré<>"0" THEN LET I=I-1 
1186 CLS : NEXT I 
1200 REM Centre de gravite 
1219 DIM G(L,C+1)3: FOR I=1 TO NO 
1215 LET R=M(I,C+1): FOR J=1 TO 
C: LET GIR,JI=GIR, ] +MCE, GX} 
1220@G NEXT cl: LET (R:C+LI=GIR,C+ 
Li+1l: NEXT I 
1839 FOR I=1 TO L: FOR J=i T0 © 
1846 LET GIT,J)=G{(I,J2/GiI,C+1) 
LaSa NEXT J: NEXT I 
1270 STOP 
15329 PRINT “REDUCTION. ES DURE" 
2800 REM Redirection aan 
e02e FOR Jei TO C 
eQdté LEF F=@: LET 5-8 
2189 FOR I=zil TO L 
2129 LET S=S+G(L,Jd)#GEtI,4U) 
2148 LET T=T+B1L1,4J) 
2166 NEXT TI 


218@ LET T=T/L 

2300 LET E=59R 1S/L-TaT) 

2500 FOR I=1 TO 

8320 LET_ G{I,d)=(G(I;UJ)-T)/E 

2340 NEXT I: NEX 

2408 FOR J=1 TO GC: FOR I=< L 

Sdd@ PRINT "Gi Titi di") QUE, 
NEXT_ I: PRINT 

245@ NEXT J: STOP 

2460 RE 

2502 REU Mat .sumetc 

8618 CL PRINT “ ÉHÉTRISAT TON 

EN _COURS* 

3628 DIM A(C,C) 

2680 FOR 6=1 TO C: FOR F=4 TO C 

3720 LET 5=û . 

2748 FOR K=1 +0 

2780 LET_S=S+61K,F22AG1K,G) 

2780 NEXT _K 

2880 LET AtF,G)I=8/L 

3920 NEXT F:'NEXT G: CLS 

2869 PRINT “Correlations" 


2900 FOR J=i TO CC: FOR ZIzu TO © 
2949 PRINT ACLI,4): NEXT 

2979 PRINT : NEXT J: STOP CLS 
S00OG REM +grande U 

3010 PRINT "RECHERCHE DES V.Pp, ® 
SOS PRINT 

3046 DER Var: BEM K£C,S7} 

Sas. DIM Y (Ci: LET Lizi 

318 FOR I=1 TO GC: LET XCI,UY= 
3170 NEXT I: LET Va=C/e 

Se29 FOR K=l TO 40 

3240 FOR I=zil T0 C: LET YiI)=08 
S280 FOR J=1 TO © 

3388 LET VII =Y CII +AU(L, AJ) #X CU, LU 
3320 NEXT dJ: NEXT I 

336@ LET UI=Yv (1) /X{(1,U) 

3380 LET Z=@: FOR I=i T0 © k 
STE? IF ABS (VIII) 2Z THEN LET Z= Ph 
VE ; 
S428 NEXT I: FOR Iz=1 TQ 

S44@ LET X(I,UI=Y(I) 2: NEXT I 








REFLEXION 












rss an RBS (UG-UIL)I<S1E-S FRE Ga 


TO 
S480 LET UBG=UL: NEXT K 
ee PRINT FLASH Li NON CONVERGE 


L 
STOP : CLS 
3560 PRINT “Uateur propre:";Ul 
PRINT 
3598 PRINT ‘"'Uecteur propre: 
TO C: 


PRINT Rtr, [AR 
3636 NEXT I: PRINT 
3690 IF U=2 THEN GO TO AdAuuu 
S66Q REM Deftation 


SS80 LET P=9: FOR I=1l Le 

5720 LET P=P+X(I, 11EK C7 1) 

3749 NEXT I: LET P=U1/P 

3780 FOR I=i TO C: FOR Jz=i TO © 

Se ape ACI,U) =ACT, JU) -P4XXIT,1) + 
3 

3840 NEXT J: NEXT_I 

3889 LET U=8: GO TO S1GG: STOPF 

4226 S3TO CLS 

4019 REM Coordonnees points 

4U20 DIM AINO,2): FOR U=1 TO 2 

4459 GO SUB 4S08: FOR I=1 TO NO 

4R7Q LET S=9: FOR J=1 TO C 

4109 LET S=S+MLTL, uJ) Ex Lu, 1) 

4+12@ NEXT J: LET A(I,U)I=S 

4140 PRINT AT @,6; "OBSERUATIONS" 

4150 PRINT AT 1.16% (022) ;A(T,U) 

+168 NEX I: NEXT UV: STOP 


42e DIM B1C,2) 
4249 PRINT AT @+(NO+21 + (NO+C4+281 
: 7j "VARIABLES" 
4260 FOR Usl TO 8: FOR J=E TO C 


Fr LET S(CJ,U)=xCJ,U)+SQR (y EU 


De PRINT si + ENOHR) + (NOHC<20) 
F8 (US); 
4340 NEXT 4: CREXT U: STOP : CLS 
4428 GO TO 59 
SUB: LET S<0: ue ILzr TO © 


11-— 
d'ATeNtS BIT, 1) *10#U+16; EnR& 
NEXT I 


4S4@ LET S=S+X(CLI UIEXET,L) 
4568 NEXT I: FOR I=1 T0 C 
4608 LET X(I,U)I=X(I,U) /S0OR S 
4620 NEX TS URN 


= CO NO : 

S858 IF ASS RIL,U)52Z THEN LEF Zz 
ABS A(I,U) 
508506 NEXT I: NEXT. LU 

REH . . 
6808 REM Projection 
6619 LET W=1 
5020 PLOT 125,9: CRAU AE 
65838 PLOT @, 8É: DEAN 286: 
6948 PRINT ÊT à, 17; "Fe 
6GSa PRINT AT 1, GG; "FRE 
6188 FOR I=1 TO É 
6240 PRINT INVERSE 1; AT 


sé 
SS005e0R I=1 TO NO 


5320 LET FIi=At(L, 1) *8GxU/Z+188 
6330 LET FasA(I,9) +66xW/2I+66 
6346 PLOT F1-1,F8-1: P 1-1,F 
2: PLOT F1,F8-1: PLOT M ETS 
LOT, FL+tL, Fè- 1: PLOT FL 

GD t>006+180æn (4, C+111 


NEXT É. 
lens IF INKEYS$="" THEN GO TO 656% 
6584 IF INKEY&="7" THEN LET Usls 
See IF INKEVS="5" THEN LET Waly# b 


6540 CL : GED TO 622 Ë 
71a8@ BLOT Re —1,Fa+i: PpLoT Fi+i,F 


: RETUR ! 
72006 PLOT F1,F2: GO TO 7108 É 
73@G8 PLOT F1, FS+2: PLOT F1-2, Fae- | 
L: PLOT FL+2,F2-1: RETURN | 
7488 PLOT F1,F82: GO TC 750& 





Un « inédit » de J. Tourais : un jeu de taquin qui tient aussi du Rubik's Cube. 
Les explications sont données dans la partie BASIC du programme. 


SÉRENM 725, URRND RETURN 54° 
LN THEN PRNDS® ‘$ RETURN Da SKIN 
RUN RNDS TO LOPY 5 RETURN 7475 
EF LN RUN RNDSS /> RETURN SCE FIMER 


: NOTAN 1G LN THEN RNRS COPY COPY 


GERND Ed FOR ERERNLD: & TAN prie 

CHRS& à FATLEN SK FA8 ( SAYUE ?; FQ 

ARE FOR TON. CaRNE #7 _PAGSE- Se 
°° RE FARNE 









; 5 

COPY RETURN HS0R 

HSOR HNQT LORD rio 
UE FA LL z* DD _. ts 

1. £: S4Se 750 em 






ES?TPI FAST SEPI FAST E£ERNDF FOR 

: RETURN 

&195 SAUE AT LPRINT SekK'°'TTAN 277 
tt LORD FAST /<=EERNDIE :1@=: Q 7 
{ CLS J4# dd PAUSE TAN É.LINKEY#T7 
RETURN Tdy 7 RETURN ?C0S LUBRND?YE 
Ds sarer TUmONDCHRS 776. INKEYÉTO £ 
É,.INREYS#F GOSUS ?LEN GHBARNDNOT L 
PRINT FAST Æ) GOSUB ?TLEN GMB@RNDND 
T LPRINT LET 7T6.INKEYSTON É.INKRE | 
M#77 PLOT EKRRRÈRRRRREICER KKKKKKE 
RÉKKKKKKKKKKKKKERKKKKKRKRKEKEKKKKEF 
KKKRKKKKKKKKKRRKKKKKKKKKKKKRKKKRKE 
KEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKE. Î 
KKKKKKKKKKKKKKKKKKKKREKKKKKKKKKE 
KKHKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 
KKKKKKKKKKKEKKKKKKKKKKKKKKEKKKKE À 
KKKKKKEKKKKKKKKKKKEKKEKKKKKRKKRKE 
KKKKKKKKKKKRKKKKKKKKKKKKKKKKRKKKKEK E 
KKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKK Î 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK E 
KKKEKKEEKRKERERRERKAERRERERERERKRE 
ERRERKKKKKKKKKKREKKKKRRKKKRKKKKKEK 
KKKKKKKKKKKKKKKEKKKKRKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKRKKKKRKKKKKKKKRKE 
EKKKKKKKKKKKKKKKKRKKKEKKKKKKKKKKEK 
KRKRKKKRKRERERRKEREKKKKKKKKKKKKE 
DESSERTS Er? 
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REFLEXION 


3 REM “TAQUIN" 16666 46 6A 46 DF 41 88 68 88 
7 LET K=USR 17287 16674 88 86 86 86 66 85 68 88 
8 LET K=USR 16659 16662 86 86 88 66 66 66 66 00 
19 INPUT A 16650 D GG 00 85 86 58 68 va 
IF Â=1 OR A=2 OR A=8 OR A=4 -16698 a Où 00 88 86 88 86 og 
THEN GOT O 5e 16706 80 QG GG 86 88 88 86 Op 
Go 18 16714 GG Où GO 86 86 86 86 88 
38 PURE, 18669, «-Ga+ (64 an) ) 16782 88 66 86 86 88 68 88 ss 
S S=USR 1688 167350 56 688 86 86 66 60 
38 LET K=USR 17587 16758 S0 60 60 60 60 60 86 88 
37 PRINT FF 5,15: LES HOUVEHEN 16746 86 86 69 &6 60 60 68 68 
TS";:AT 6,16: "SE FONT SUR';AT 7, 16754 56 95 68 66 60 66 88 66 
S;"LA GRILLÉ .DU HBUTe. 16762 80 50 65 86 60 60 656 68 
38 PRINT AT 15,16; "CETTE GRILL 16770 80 Où 96 66 60 90 66 88 
E";:AT id, 18; “UQUS SÉRT"; AT 15,18 16776 66 85 65 66 80 60 88 88 
J"DE RÉFÉREN : 167686 28 88 69 688 60 60 69 60 
39 PRINT AT 21,14; "FAITES ""NE 16794 60 66 S0 60 50 60 5% 60 
ULINE"" 16802 60 86 68 88 66 60 &5 88 
48 INPUT 16810 60 88 60 60 86. 80 86 88 
42 LET K=USR S1Z887 16818 30 86 60 80 96 80 80 80 
d4. PRINE AT 5,1S; "A CHAQUE COU 16826 80 686 86 86 66 86 68 66 
PUSAT 6:17; "INTRODUIRE"; AT 7:17; 15854 88 80 60 60 60 88 80 80 
2° CHIFÈRES 16842 66 60 68 686 60 66 80 60 
45 PRINT AT 9,183; "LE PREMIER I 16850 65 950 58 86 950 566 86 88 
NDIQUE"; AT 106,15; "LE DEPLAGENENT 16858 88 80 60 80 60 87 Od 67 
“5AT 11:18; “S2UERS LA, GAUCHE" ; AT 16866 O4 87 D4 87 Gd D2 686 06 
18:18; "G-UERS LE BAS FAT 18,18; 16874 G1 AZ 56 06 O1 67 66 86 
FP-UERS LE HAUT AT 14, 22; "S-UER 16882 dé 57 06 86 04 02 O1 02 
S LA DROITE" : 16890 &G1 QS Qi OE @G1 57 @d 
46 PRINT LR 2e 18; LE DEUXIEME 16898 G4i 87 Od 87 O4 62 86 06 
INDIQUE"; AT 7:19; ‘LE N. BE LA 16906 91 Q2 86 06 G1 G6 86 
LIG NE":Q7F. fe, 14! “où BE LR COLONN 16914 Gé 67 O6 686 O4 O2 O1 02 
a ue 18982 61 G2 Q1 Da G1 11 4S GG 
47 PRINT AT 21,14; "FAITES NE 16950 CD 28 42 11 GF @1 24 QC 
ULINE 16938 49 19 ED S8 10 di QE GS 
48 INPUT A$: ” 16946 06 68 1A 77 23 15 10 F 
43 LET K=USR étais 15954 DS 11 19 G@ 19 Di GD 28 
S8 PRINT Dar POUR REVENIR 15968 EF C9 SF CO 09 06 00 00 
MR Des Gi NONETES DSi NS 16979 FD DE BF DO dF DE BF DO 
05" AT 8E,14; “FAITES NEULINE 16978 4B AE BF DO FF FE BF DO 
16986 42 a BF DO OC #0 BF DO 
51 INPUT A$ 16994 00 Q0 BF DOG GG © BF D? 
Se LET K=USR 17357 17002 EF 7F O8 O6 QG GQ SF CO 
D4+ GOTE 17010 FB F& SF CO 00 0@ 3F CG 
68 INPUT A% 17018 O7 40 SF CO O0 QG SF Co 
62 IF A$z= THEN STOP 17086 àO 00 3F CO. GG QG SF CO 
65 IF A$="S05" THEN GOTO 1000 17054 00 00 SF CG O4 GO SF CO 
SS IF LEN A$<>2 THEN GOTO 6@ 17@48 @Gà 6 1D 1E 1F 20 21 22 
76 POKRE 16514,C0DE A& (1) 17050 23 24 O1 OS 684 O5 O1 &7 
39 POkE DER dE CODE A$ (2) 17058 66 06 86 85 05 05 62 65 
SG RAND ÜUSR 16518 17066 1D 80 SA 50 50 80 60 80 
92 IF PEER 16514<:0 THEN LET K 17074 80 12 85 82 85 05 05 85 
=USR 17568 17082 €5 05 O5 GS 84 1E 6ù 84 
108 GOTO 6@ 17090 60 SG 80 80 80 60 LE 02 
1808 PRINT. AT 9,12; “POUR REVENIR 17098 O1 DL 2 66 93 01 61 02 
AU JEU":AT 11,47; “FAITES eue 17106 1F 89 80 60 SQ 60 60 80 
1858 PRINT AT 16, ist tJo0ez EN *; 17114 80 1F 08 05 05 05 05 05 
1069 RAND USR 17396 17182 OS 05 03 05 oS 05 05 05 
1878 INPUT f$& 17150 GS 20 606 60 60 606 80 80 
18080 IF H$<:"£" THEN GOTO 1898 17138 80 80 20 51 80 560 80 80 
1882 RAND USR 17357 17146 80 88 S0 690 21 22 80 80 
1088 O0 EU 12188 20 20 20 20 20 00 So 20 
1988 LET K=USR 16518 17170 £S 24 60 60 60 60 86 6a 
1188 GOTC 1850 : . 17178 60 60 24 35 S4 SA. 31 2A 
S3GGS PRINT AT 5,16; "UQULEZ vous 17186 SF 58 54 5A 38 28 2D 34 
AT 6,14; "QUE JÉ MÉLANGE AT 8,1 17194 2E 38 SE 57 1D 1E 1F 26 
2618 FAPÈT EN. 18e aa 26 29 28 d1 21 24 dé 
C 4 
2020 IF AS$="N" THEN GOTO 2188 17218 80 60 S0 680 60 60 88 8ù 
2034 PRINT AT 12,18; "NIVEAU DE D 17226 60 50 80 50 40 BG 80 80 
IFFICULTE"; AT 15,19; "1 À 1a" 17254 10 00 26 20 60 86 69 80 
2035 ENPUT CLS 17242 80 80 50 80 60 60 80 80 
2840 I= (UAL A$-1) #3+5) 17250 80 88 60 80 80 80 60 68 
2050 DORE Lésle, (INT (RND #4) 1 +35 17258 80 Sù 80 80 80 56 80 8 
28068 POKE 16515, ENT (RND +73) +29 12366 80 80 80 80 20 60 60 EO 
2065 LET K=USR 1681 17274 80 89 60 60 59 650 50 80 
S87Q IF PEEK 156514 « a THEN LET K 17282 80 836 SG 50 GC 21 44 42 
=USR 17560 17890 ES 21 94 42 E5 A OC 4a 
2880 NEXT I 17298 23 EB 14 FE °6 26 65 15 
2190 LET K=USR 17387 17306 18 FS C1 El 7E 25 ES CS 
2110 GOTO SS 17314 El 05 06 17 30 GB 4F 7E 


17362 d1 ?7D FE S9 29 a4 70 FE 


17537Q dC CS SA 62 49 57 SE 2a9 
126514 21 1E 901 20 SA 82 40 FE 17978 92 17 17 17 17 S7 SA 63 
16582 £1l 20 05 11 23 G@Q CD DE 17386 40 D6 10 62 77 28 &e2 15 
25599 40 21 91 30 18 D FE 22 17394 41 C9 24 156 41 285 7E A7 
LES5S6 20 GB 21 34 C1 CD F7 49 17402 C8 FS ES AF ED 6F C6 1C 
15546 EL DF FF 18 GD FE 25 20 17410 32 82 48 D7F EL ES AF ER 
15554 96 231 07 909 CD F7 49 21 17418 6F C6 1C 32 &S 4@ D7 EI 
LGS68 21 GQD 15 12 FE 24 28 45 17426 F1 77 22 15 41 CS &4A 15 
16570 AF 32 82 4@ C9 11 2C 66 17454 41 25 16 F6 S9 SQ 50 30 
16578 CD DE 40 &1 FF FF 22 54 17442 30 30 30 SG 3@ 36 35 30 
18586 49 16 A7 20 EB ©66 O9 2h 17450 S0 SQ S0 30 50 5G 30 30 
16594 64 49 19 TE 18 EE 10 F7 17458 50 50 50 50 SO 536 50 50 
16602 EB 36 0 C9 SA 85 40 DE 17466 30 350 50 50 30 50 SQ 5e 
1661@ 1C 47 Ar 67 C6 21 3530 @2 17474 50 350 50 30 30 30 58 350 
16618 26 OL 10 FS 6F 19 EB &A 17482 SA SG SO 50 SA 30 38 30 
16686 OÙ 48 19 EB C9 SA 635 4@ 17490 SO 30 30 S9 30 SO SG 50 
16654 85 6F.156 F2 654 40 1A A7 17498 50 50 SO 50 59 SG 59 30 
16642 CG 09 O6 @S 2A S4 408 19 17506 30 359 S0 5Q 539 30 SD SG 
16659 ?E 18 EB 19 F7 E6 S6 90 17514 S0 59 SA 50 SO 50 50 39 
16658 C9 21 SO 46 22 15 41 C9 17522 S0 S& SO SO 30 SG 56 SG 
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Si vous ne connaissez pas les règles du 
jeu de Yam, ce n’est pas grave, 

le programme de M. Kourotchkine vous 
pilote très obligeamment dans ce jeu 
de dés où les réactions de l'ordinateur 
sont très rapides. 











1 AM" 89 LET T=1 
3 REM (C)M.KOUROTCHKINE 84 99 PRINT ÀT 20,0;P#;P#;P#;" 
S RENM PROGRAMME _2X61 (161 S1 PRINT AT _21,0;P#;P#;P#i" 
S REN - GOSUE AU REGLEMENT_- 35 REM -- LANCEMENT DES DES = 
7 GOSUE 600 ù 9S LET R1=INT (RNDSG)#41 
8 CLS 96 LET R2=INT (RND+#6) 41 
S LET T7=2 97 LET RS=INT (RND #63 +1 
38 CET Feat? 88 LET R4=INT (ENDE6) 42 
11 LET 8272 139 LET RS=INT_(RND #63 #1 
= F PRET ER PR Ne CE A Cd Eu, A nu ce 
18 LET C=6 101 REM -_ IMPRESSION DES DES - 
Pere les 105 PRINT_AT 5,8; AS(R1) ;AT 6,5; À 
16 LET TÉ=T7 BIRD) AT 7,8:C8 CRI); AT 6,9;:Dé5 À | 
18 DIM 4$(8,4) T'S,9; AS (RD) ;AT 6,9:ÉF(R2T; AT 7, | 
19 DIM B#(6;4) S:CÉ (RS) AT 8,9;DÉ: AT 10,6: A$(RS | 
RU ue te 
ES REM -- DESSIN DES DES -— S:BHIRLI:1AT 18,2; CHIRS)I AT 19,5; À 
2S REM ------ = DH:AT 16,9: A$ (RS): AT 17:9:E#$(RS) À 
85 LET A$(1)= " AT 18,9; CS (RSI; AT 19,9/D&;: AT. 3, À 
Se LET EEE Z 1 4i156T 9,10;2AT 8,718; AT Î14,45 à 
SO LET Déc me ; Lu 
4S LET A5 (2) ="E mn « 195 IF T<3 THEN GOTO 182 
48 LET dei . 106 PRINT AT 20,0; P#;P#;P#;" ‘ 
47 LET Cia “ 107 PRINT AT 31,0;P$;P#:P#; 
CR EE Ze ERP ease ee PRISENTE 
52 LET C$(51=C$ (2) 119 DIM T(12) | 
5SS LET IE D 142 REM mm mmmmmmm 
56 LET B$td)=A#(1) 112 REM -- CALCUL DE 
57 LET C$ (4) =6% (4) 115 REM -- DE CHAQUE 
66 LET ARCS) =A$ (4) 114 REM ==" "2 
FE LET B$(8) =B#(1) 115 FOR P=1 TO & É 
Êe HET RES) sn 14) 1116 IF R1=P THEN LET TP) TRI + Ë 
8 LET HS TS 117 IF REP THEN LET TiPI=T(P)+ À 
Su Er EF EA x J428 IF RSsF THEN LET T{FIST(PI + À 
68 REM = mmmmmemmmmemnte 2 MES: fl 
ÉS BEM == CADRE DE MARQUE == 119 IF RésP THEN LET T{P? ST {F2 + E 
PR BAR a 22 ,128 IF RS=P THEN LET T{PI=T{PI + | 
28 FOR 0=1 TO 20 STEP à F T + : 
‘ 181 IF Z=P THEN LET T(P)=T(PJ«P À 
PS RAR ENT 2e 0R (88 TP 227 THEN LET TZ) =T (2) #7 À 
75._PRINT AT 2,18; "--- YAM,S -- 4 e = ï 
=: TÈT 2,18; LIAT 4,45; ut 8,19 SRSLTF 228 THEN LET TZ) =T (ZI 4T | 
SREOT 087887 42 AT 5,219: 9; AT, 0,25 185 IF (Z=9 AND T{F):=4) THEN L À 
2,195; AT 18,867 enr dar 1800 ET 1 (2) 520 
AT’ 14486 VAT ie 185 art ar 48 128 7F (2-10 AND TiPr2=8) THEN L | 
FAR EE Z-20 THEN CRaNT er gaie © CROeEe (2-20 AND TiPi=er Then L| 
Then ee : Re 
22 3e 2=d8 PNEN INPUT n8 * ESS IE, (2522 AND T(P)=8) THEN L | 
SO D aa MEN SOU -198 IF, (Z=11 AND T(P}=1) THEN L À 
RDTTES Dec UPS NUS At “134 NEXT 6e : 
é Bi Re 227 FÉRN PRINT DE 10850 .135,17,02=10 AND A+B=2) THEN LE } 
à & ; 156 IF (Z=11 AND C=5) AND (R14R 
PLÈE EF Z=8 THEN PRINT AT 1,11;° 2HRS+ReRS=1E) OR (Z=21 AND C=6) 
cRSSEF Z=S THEN PRINT AT 1,11; TT me 0 27. RU RE] 
19% IF Z<? THEN LET TA=TA4T 
4 IF Z=1@ THEN PRINT AT 1,11; LISE IF 27 AND TE2) >=10 THEN LE | 
es UiEez"1t THEN PRINT AT 1,10; 289,17 Z<7 AND T(Z)<=e THEN LET} 
UNS AE 2512 THEN PRINT AT 1,8," 249 IF Z=1 THEN PRINT AT 4,Y;T} 
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REFLEXION 





ww DUDANEMEI, 
6 UUbHOrs 


je] 
fe 


211 


M PONROERAR 


IF Z=2 THEN PRINT AT 6,Y:Té 


IF Z=3 THEN PRINT AT 8,YiT£S 
. IF Zzd THEN PRINT AT-10,V5T 


IF Z=8 THEN PRINT AT 28,ViT 
THEN PRINT AT 24,V;T 
AND TA>=50 THEN LET 
«7 AND TA>=80 THEN LET 
=5 THEN PRINT AT 168,21; 

T. 


THEN LET T?7=T (2) 
S AND TY>=T(Z) THEN LE 


AND T(Z)>0 THEN LET 
AND T{Z)=70 THEN LET 
THEN PRINT AT 4,YiT{ 
THEN PRINT AT &S,YiT( 
THEN PRINT AT 8,YiT( 


10 THEN PRINT AT Z,Y;T 
11 THEN PRINT AT 12,Y; 
£ THEN FRINT AT 14,Y; 


GS THEN LET TB=TB4+T (Z) 
fe! THEN PRINT AT 16,27 
À 


a Fair PRINT AT 18,19 
3TA#T 

=3 THEN. LET 2=24+1 

TES THEN GQOTO 76 

PRINT AT 20,6; "COMBIEN. 


H 
bu! 
N 
H 
Gil 


Do v y 
GO +4 g 


WU 4H 
= 


hs 


H 
7 

als NN ON ON NON ON N° N N NN N M 
Ü 
[re] 


H 


B 
E{S)";:AT 21, o; “VOULEZ VOUS RBJOU 


INPUT Nÿ 

IF N$:>"5" THEN GOTO 1583 
IF Nh="." THEN GOTO 183 
IF N$=" “" THEN GOTO 153 

N N$&>1 THEN CGOTO LES 
z"S" THEN LET T=T+1 


N$="@0" THEN LET T=5 
Nh="0" THEN GOTO 195 

AE nt THEN GOTO 36 

NS > THEN PRINT AT 21, 
UÉL.S tous PH PH:'AT LOG PE 
N$="1" THEN FRINT €T 6 
EE T'IPÉPRAT 29,68: P$;P 


INP IS. 
PRINT. Ken 31,8;P#;P$;P$;" É 


. IF N$="1" THEN LET X$="DE" 


IF N&>"1" THEN LET X$="DES" 

PRINT AT &1,S; "xxx FAUX REY 
tiNgit "REIN gp 

INPUT Ig 

PRINT AT 21,G;P#;P$;P#&;" 

IF LEN Lee OAL N& FHEN G0TO 


)>"5" THEN GOTO 204 
="9" THEN GOTO 204 


L TO UAL Né. 
=I${K) THEN SOTO 26 


IF L8 «ko = ="Q0" THEN GOTO 204 


LET Mz= 
IF MUR NS THEN. GOTO 225. 


BEM _ LANCEMENT DES PES - 


REM 
FOR Xz1 TO UAL N& 
UAL IH(XI=TL THEN LET R1= 


. 


4 


H 
Let 
D 
Fr 
He 
# 
= 
j 


E) THEN LET R3= 

4 THEN LET Ré= 

+ + 

JAL Ih(XI=S THEN LET R5= 
+ 


F 
H 
# 
£ 
(ll 


REH 
REM - REGLEMENT DL YAMS -— 


RE 
PRINT TAB 7; "REGLES DU YVAMS 
PRINT TAB. 7j" 


26 - ORDI-5 n° 10 Décembre 1984 


+81 +1 
PE Al ls THEN LET R£=: 


69S. PRINT 


EL LALE … AVEC 5 DES ET EN 3 
S."* : 
SIL PRINT “- FAITES DANS L ORDR 
E. INDIQUE. ‘ . | CET 
GLS PRINT ‘- LE PLUS DE 1,8,53,4 
43 OU S,." 

615 PRINT 

GL7 PRINT ‘"- BONUS = + 20 PTS & 
ZI A >= S0," : . 

618 PRINT ‘“- BONUS = + 36 PTS S 
TI A >= 59." . 

&13 PRINT 

BAT PHENT "C-) MOINS = MOINS QUE 
G21L PRINT “"C+) PLUS = PLUS QUE 
MOINS." 

622 PRINT “(ICICARRE = 4 DES IDE 
HTIQUES, * 

523 PRINT “"£{F) FULL = S + 2 DES 
IDENTIQUES. " 
824 RRRNT (SISUITE = 1,8,5,4,5 
F3:3:4,5,6." 

S2S PRINT "(Y)IYAMS = $ DES IDE 
NTIQUES, * - 

6286 PRINT 

6527 PRINT ‘"- LA MARQUE EST AUTO 
HATIQUE, 

26 PRI 

659 PR TAF 10; " _"* 
300 PRINT AT 21,1; “ÉOÛR *Dôuenr T 
APER J ET NEULINÉ:"" 

S81Q INPUT J# 

Gap CL 


s 
S0Q IF Jé$="J" THEN RETURN 


#*£k4 POUR REJOUER 









RESLES DJ YAMS 














AVEC 5 DES ET EN S$ COUPS. 
FAITES, DANS L_ ORDRE INDIQUE. 
LE PLUS DE 1,2,5,4,5 OÙ 6. 
BONUS = + 29 PTS SI A := S@. 
EQNUS = + 50 PTS ET M = E@, 
C-IMOINS = MOINS QUE PLUS, 
L+) PLUS = PLUS QUE MOINS. 
(CO) CARRE = 4 DES IDENTIQUES,. 
LF)FULL = 3 + à CES, IPENT IQUES . 
(SI SUITE = 1,82,5%,4, Race 
INIVAMS = & DES TbENT ÉOUES 
- LA MARQUE EST AUTOMATIQUE, 


Eh 


POUR JOUER TARER J ET NEULINE 








Pour s'initier aux finesses du jeu de GO 
que certains fanatiques tiennent 
pour plus génial que les échecs — sans 


faire l'acquisition onéreuse d'un GOBAN. 


Chaque joueur doit entrer les coordonnées 


du point où il veut jouer ; 

petite contrainte : il faut aussi entrer 
les coordonnées des pions pris. 

(F. Payant) 





+ F 

S € FR. 

7 SALE "GK" 

ED GOTO 7anum 

98 REM POSE DES PIONS 


M 
186 PRINT AT 6,21; u#{T) 
120 PRINT A1 221; eme" 


SG IF Lés'"S" OR Lg<"h"* OR LEN 
LRro2 THEN RES 128 

140 PRINT 2,21; "LIGNE ="; LS 

158 LET L= 53: CODE Le 

160 PRINT AT S,21;° 

170 INPUT C$ ; 

188 IF Cé>"S" OR Cé<"A" OR LEN 
CH<>1 THEN GOTOQ 17& 

198 PRINT AT 3, 21; "COLONNE=" 310% 


P=27 OR PEEK P=@) 
THEN GOTO _11& 
LET E=PREEK 
PE NT AT 5 






FA 
2es PORE PF.,283 
230 1F INKÉY =" THEN GQTQ 2Suûu 
248 IF INKEvVS$="E" THEN GOTO 48 
2S0 IF INKEVS="P" THEN GOTO S&a 
269 IF INKEYS="F" THEN GOTO 958 


8 
38 POKE P.C(I) 


318 PRINT AT 2,29;" "AT 5,29: 


PRINT AT S,28; "ERREUR ";AT 
5,828; "PRISE 

330 PRINT AT 21,@;". 

S4G IF I=S THEN RETURN 

350 LET I=ABS (I-5) 

366 GOTO 180 
398 RETURN 

: RE LES ERREURS 


POKE_P,E 
PRINT AT Hd Do “AT 
5,28; "PRISE “;AT 21,8 


429 GOTO 11@ 
REM 


… 


LES PRISES 


SUR) P#(1 TO 1@); 


TF 
520 RINT AT 2,29; *" “"; AT S,2 ee 
AT S: D2 ; FERRÉCGR “;AT 8, 285 PR 


55e PRINT AT 21,@;° 


S4R INPUT RS 

SS9 PRINT AT 21,8; DE PIONS PR 
ISTFRAPPER $ POUR OUI 

SSES IE INKEYS$="" THEN GSOTQ _SSS 
566 IF INKEYS<>"#" THEN GOTO S5 


565 LET R=UAL R$ 
578 ne UE AT 14,21;° 


"EAT 15.21 ";iAT 81,68 


580 LET R(II=R(I)I+R 
S9G PRINT AT @,27; "PRENE" 


6SG PRINT AT 18,S8@; INT (R11) /1@ 
JERIII-10HINT (R(1I2/1@) ; AT 19,932 
INT (R(21/18@13 :R(2I-IAR#INT (R(23: 
“17 


©AFS84 


66a 


van FRAPPER TOUG 


680 
585 


sag 
780 
718 
a98 
399 
1908 


RISONNIERS 7 (A 


191@G 
1920 
a 


16ese 
1a 


7870 


Eee EUR A NP ÉQUE ES L UN 


S LA 
R_UN 


7838 FRINT ART 
QUE APPARAITRA ALORS" 


7aa@ 


RREUR FRAPPEZ "‘"E" 


PRINT AT &1,8;° 























PRINT AT 21,1; DES EUR te 


IF INKEY#="" THEN GOTCO 67@ 
IF INKEV&="E" THEN GOTO 18@ 


PRINT AT 21,1; 


LI 


IF Fz1i THEN RETURN 
LET I=ABS (i-SG) 
GOTO 188 


DEN CORRECTION ERREUR PRISE 


PRINT AT 21, BP, PUSERE DES PF 


IF INKÉVE= TH GOTOQ 181 
IF INKEY&="N" FHÈN GOTOQ 187 


IF INREYS<S "OO" THEM SCQFTCG 1e 


LET GSRÈES 
è 


POKE (WIZi5i ,C 
PET 

LET AU =RTII -R 
GOTO 51 













TAB 5; °" : TAB 


7 
Ë ST 
PF BE Eur 
E2 BA Bo ot BnF Bon 













PRINT =} APRES AUCIR ENTRE 
APRES L ñ 
ENTRANT LA LIGNE PUTI 
tt din UOUS DBESIREZ POSE 
“LUN ASTERIS 


LS 8; 


PRINT AT 1S,@; "=D EN CAS D E 


2160 PRANT.. à SEN CAS DE PRISE FR 
7118 PRINT “=>AU DERNIER COUP FR 
SSEz Du n 
7126. PRINT : 
7130 PRINT “SINON FRAPPEZ UNE AU À 
TRE TOUCHE : 
7140 PRINT AT 21,11; "QUE LE MEIL | 
5180 TE INKEVS= THEN 
F = coTo 7150 | 
7998 REM LE JEU À DEU 
POS DE nu nn 
S008 CLS 
6@18 PRINT AT 1,@; "LE TRAIT COUT È 
E S PTS 1/2";AT 8,3; "QUEL HANDIC | 
ÂP 7 {8 À 9° 
S@G28 INPUT D 
8030 IF D+<@ OR D>9 THEN GOTO 8@1 
8040 GOSUB 9000 










IF DÉE THEN 


Le 
OR 
(Dx2) 





DR=9 THEN & 
STEP 


FOR I=1 TO 2 

LET P=B+SSx (CODE HÉ$EEX -SSI + 
H$&{I+1) -37 

POKE P,28 

NEXT I 

GOTG 8598 
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THEN GOTE 998 

































































REFLEXION 


S14G PORE ({E5+307) ,28 3748 IF INKEYS&="R" 
B1SS LET D=b-1 
8169 RETERN 9750 IF INKEY#$="B" THEN GOTO 98SS 
SE69 LET EI=1I ' Fe Ke Dore | 
5219 GOTO 168 5760 GOTO 972@ 
8388 LET I=ES 3779 NEXT y 
6319 GOTO 1@8 SF7SS NEXT I 
G997 STO 373938 GOTO 93940 
5998 REM DESSIN DU GO-GAN 3799 REM POINT NOIR 
909 REN mm. me nes em mme 93886 LET R(I1I=R (1) +1 
A8e29 POKE P,51 
SàS@ GOTO 9778 
RES REM POINT SLANC 
3850 LET RI2])=R1I23 +1 
3879 POKE P,59 
SS86@ GOTO 977@ 
SOS FOR _I=@ TO 16 STEP 2 9899 RENM POINT NEUTRE 
2060 POKE C, (1664+1XI) 939308 PFOKE :2 
3079 POKE (C+20), (156+2I1 9916 GOTO 977a 
3080 LET C=C+38 3948 PRINT AT 16,21; ° 
3090 .POKE C.(167+171 "AT 19,21; . 
3109 IF I=18 THEN GOTO S188@ 2950 PRINT AT 17,281; " RESULTATS 
2110 FOR J=1. TO 19 STEP 2 "AT 28, 21; “NOIRS ="; (RL -(E,S 
120 POKE (C+ut ,R #(D=@)));:AT 19, 21; "BLANCS =";R(Ee 
SG PORE (C+J+1),27 } 
48 NEXT e : 9395S IF INKEYS$="" THEN GOTO 9955 
(C+861, (167+271 3969 CLS 


396S PRINT AT 53,0; "POUR REUJUOUER 
FRAPPEZ vepuue 

3979 PRINT AT 6,0; "POUR SAUVEGAR 
METTEZ VOTRE 


65 Dés Czc+3s 











TNT IALISAT TON RASNETQEHON MARCHE ET FRA 
C{31 3975 BRINT AT 11,8; "POUR ARRETER 
Jéte,111 FRAPREZ upon 
C1) =28 9989 LE INKEY $="" THEN GOTO 995& 
C (2) =52 8985 IF INKEYS="R" THEN RUN 
CS) =-0 9990 IF INKEYS$="S" THEN GOTO 5 
dRC1) ="NOIR QUE * S99S IF _INKEYS$="A" THEN STOP 
JS (2) = "BLANC JOUE * 9999 6G0OTO 9988 
F#= 
RITES 
16514,118,118,30,185,4 
R C1) = 15529, 4,88 68, 166,28 47588 
pass : : 16586, 114 20,;28,16 5 
Er Fo'ié Sér s 16552, 114, S6- 16.261 84 jee 
= T,231:7 16538 ,114,18%,202,199,64,1 
ee 188 060 1r6 101370 
33689 PRINT AT 2,81; "LIG AT = 2" 842: 
82815 FO0LONNES BE 522) "ERREUR 1280: 10082 00402230/64 
AT 6, 28; "PRISE": T a, 16568, ‘565 à rires 


RAP ep: 11,21; "FIN 
U?7";:AT 12, 21978 APhEZSepr un 
34098 PRINT AT 17, 21; "PRISONNIERS 
"SAT 16; 21; "DE NOIR =Q0 "AT 19,2 
13 "DE SLANC=00"; ) AT EQ,BL,; “FHFKFEEE 
EXrEr" 

9419 LET F-=0Q 

Sd LET B=(PEEK 16S396+2S6%PEEK 










à LD E.59 
163971 +5 LD HL,1i48mc) 
3497 RETURN INC 
dre peu FIN DE PARTIE LD h,R6 
a49s EM =s=s=senmsesès LIGNA 
3500 PORE PB, SO BP ;, 
3518 PRINT ÊT LD (HE) ,D 
VLAT PE Ce LD B,14 
935208 R INT AT LD D,R6 
5-88: "PRISE nt INC HL 
aS39 LET Er LE (HL) ,D 
9540 LET I= INC D 
9556 PRINT àT S,21; “BEM PREND“ DUNZ FB 
3569 GOSUB Sie LD D,S82 
9579 LET I=2 LD CHL3,D 
3589 PRINE AT @,21;" CP € 
3596 GOSUE S10 JP Z FIN 
9595 PRINT AT @,21;" é LIGNE 
3609 LT Fe ns us. LD E&C,6D 
UN POINT. Bi" INTÉRAOE ADD HL BC 
SF ION" 9) VA APPARAITR SUR LE LD CHLI ,A 
Q-BANaunsnse ET SE DÉPLACER DORIN LD BC,214 
TERSECFION LIBRE EN INTERSECTF ION ADD HL,56C 
LIBRE. sus ePOUR CHACUNE .D°'"EL LD CHL) ,R 
LE, INDIQUEZ S'"'"IL S'"'"'hG «D LD BC,8 
he COIN RE {"‘"p"") ADD HEL,5C 
""UNE INTERSECTION NOIRE ("°N°")10 INC A 
U _ BLRNCHE ("5°") CP E 
9610 LET AG=AË4+" nome mnmumenmess » JP Z LIGNTI 
gunusanessens ss e NEUTRE=P, « « » NOT LIGNZS 
R=NseusssBLANC=5" LD CHLJ,A 
3629 FOR I=1 TO S11 LD D,8 
36306 PRINT AT 21, B:ASIT TO I+51) LD C,15 
NEXT LD 5,9 
9656 LET R(1)=-R(2) INC HL 
S6SESS LET {2)1=-RXI11 LD £tHL) ,D 
3669 LET B=iREER IGSOQ6+2S64PEEK INC HL 
16397) +34 LD CHLI,C 
3676 FOR 1-0 TO 18 DUNZ FA 
3660 FOR J=1l TO 19 INC L 
9699 LET P=B+3S3+1I+ LD CHLIY,D 
9700 IF PEEK P=28 OR PEEK P=528 T INC HL 
HEN GOTO 977@ LD (HELD, 
S718 POKE P,1S INC A 
9720 IE INKEY$#="" THEN GOTO 9728 JP LIGNE 
Fe IF INKEYS$="N" THEN GOTO 96@ FIN _ 
R 
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Nouvelle version de ce jeu bien connu, 
avec un plateau de 76 pions : essayez, 
comme l'ordinateur, de ne laisser qu'un 


seul pion sur le plateau. (J. Tallone) 


GSOSUS 799 
CLS 





83: "TR 





FATBUZCO 
HOT 


ui C6 0 Gn 


SR ns 


ni 
% 
x 
« 

ni 
# 


NEXT" 
PRINT AT t-il Le A 
DER RT 65,45; "DEF 


IF 0 THEN GSTO £&S 

INPUT Dé 

LEN Dé$éci:e THEN GOTO 58 
IF CODE Dé(1):S6 Un LOLE D 


0.—. ED GC 
H 
n: 


(1):47 OR CODE Fe RS OR CODE 
Dé 1»37 THEN 89 68 

GOTG_ 96 

LET D$="hEe" 

PRINT Dé ” 
; SL PICODE D$iii -S7:0GDE DS 

EX = 

PRINT AT_ {CODE Aus Sri +8, 
Ë E Gi) -27) #a: 

FOR si TO 18 

NEXT 

LET Ne = 

IF =1 THEN ere 509 


BRCBHPEPPPBPEPEBPEPROEN 
0 1 id IPN ERRLBERE GTS EUR 


IF NOT _G THEN GOTO 121 
GOSUE ecoa 
GOTO 166 
INPUT D ce 
IF Dé="FIN" THEN SOTC 509 
IE LÉN D$<:2 THEN GOTC 129 
IF CODE. Déi11<58 OR CODE DY 
£ 47 OR CODE Dé(21<28 OK CODE 
(e 1:87 THEN GOTO 129 
IE PCODE Dé(1i-S7,CADE D#£ 
a 7) 4:71 THEN GOTO 180 
PRINT DS 
PRINT AT «28; "ABR: “; 
131 IF Q THEN GOTO 2709 
199 INEUT XS 
280 IF X#4=D$ THEN. GCTO 332 
S@2 IF LEN X$<:2 T GOTG 199 
az IF CODE X#(11<56 OR CODE Xg 
(11:47 OF CODE X$(2:<26 OK CODE 
X$12:597 THEN 6010 112 
2GS IF DR(1s c-XSI1) AND D$t2) ç> 
KÉ(2) THEN GOTO 112 
219 IF P(CODE X#(1:-87,CO0DE X$#{ 
21-87: THEN GOTO 11e 
226 IF CODE X$(1) *>CODE Dé$(23 +2 





7 Ÿ de 









AND CODE K$(1Li: < CODE Dég(1: -2 AN 
D CODE XH(2) :2CODE Dé(ai +. AND C 
QDE Xgi£i < CODE Ba) - THEN SOT 
9 11 

E79 PRINT X# ! 

289 IF Dgif 2hexg Ce THEN GOTO Sd 

£gg LEFT Y=(CGDE Die) -ET4+CUDE *X 
H{A2) -275-2 

SaR LEFT X=CODE D$é(1: 57 

558 GOTS Ses ee 

Ba LET K=(C0UDE Dhiit -ST4CODE X 
RL) -S71/-2 

358 LET V=CODE D$(2)-287 

269 IF PiK,YI<31 DE GOTOQ 211 

539 PRINT AT (CODE D$i1) -S7) +2, 
LCGDE DS) -&r) a; FE ” 

SS8S LET PICODE Détii-57, CODE Dg 
(2) -27)=@ 

dB PRINT AT_ (CODE XHtIr-S71#2, 
LCOGE RAS ES ; 

4RS. LET P(CODE KE CTI -D7, CGDE x 
{ai -27)1=1 Ë 

48e PRINT AT Rx, es it. 

aRr LET PiK,vi1=E2 
ALI FOR Z=1i T9 15 

412 NEXT Z 

428 GOTCQ 11@: 

SA FOR Lei T0 15: 

Sa@i NEXT TI | 

SEE CLS ; 

S51Q PRINT AT &8,56;'"'ERm i 3 

Se PRINT AT 4, Ai "RÉSTÉ: FRS 
SUR 76 PIONS" 

SES IF O THEN rs Sge 

SXG IF M=1i THEN RINT AT 6,5%; " 
MCELLENT"* 

S31 IF M=1 THEN GOTO ED Ë 
sens IF Mae THEN FRINT TT 6,%:"5 

As Ë 

S26 IF M=8 THEN GOTO 6@0@ ë 

S4@ IF M=3 THEN PRINT AT E,5:"pP 
RS MAL" 

Sd4T IF M=3S THEN GOTO 6@G 

S4S IF M<19 THEN RRINT AT 6,5; 
AOGNNORABLE 

SAS IF M<i1@ THEN GÜOTO 69@ É 

SS@ IF M>S THEN PRINT AT 6,@;"Tr 
L FAUT VOUS ENTRAINER,.,, 

TE. FRINT AT 9,5%; “UNE AUTRE PAR | 
619 IF IHNREY%="" THEN GOTCO 61@ 
ELA PRINT INKEYS 
Ses IF INKEYS#S="Q0" THEN GOTO 1 
65. GOTO GAS 
7R8 REM REGLES ; 

,729 PRINT AT @,7; "RESLES DU JEU Ë 
729 PRINT AT 2,1:"LE JEU CONSIS | 

+E Ë ELIMINER®", "PERUGRESS TUEMENT ‘ 


e 
Lil 


LES FIONS","SAU UN, ON COM 
MENCE PAR EN ÉLIMINER UN ,CE 
SLI FRET ri UIDE,.'"':"UH RICH ÜDIS 
IH POURRA DONC","SAUTER PAR DESS 
DJS LUN AUTRE ET‘; "COMBLER GE WIDE E 
= LE PFIGQN SAUTE EST ELIMINE.CE Pb 
QUI FAIT UN VIDE" ,"S 44 ETC..." 
723 PRINT ; 
725 PRINT SRE HEIN ""ERQUR TE & 


7E7 PRINT AT 14,0;" PRESSEz “+6 | 
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REFLEXION 


Bridge 
à 4 ou 5 joueurs 

















: "* POUR FAIRE JOUER Le ORDINATE. BQS5@ LET PO=PO+d 
UR." SO6@ RETURN 
726 PRINT AT 17,0; "EN CAS D. INÇ- 20908 FAST 
IBENT NE FAITES PAS "BEN "HAIS SR1Q PRINT AT S5,22;" 





CT Ce ‘1000 


2020 PRINT AT @,2;°% 
239 PRINT AT 29,5; '"PRESSEZ UNE. RE 





: TOUCHE" S0S0 FOR I=1 TO 













735 PRINT AT 29,5:" 3022 PRINT AT Bat, °a; CHRS& (1+1687 
F4 IF INKEY$="" THEN GOTOQ 780 . SGSG IF P{I,Ji=1 THEN PRINT AT & 
74S IF INKEY#="S" THEN LET Q=1 #I, 2%; 
748 IF _INKEYS<»"S" THEN LET 0=0 se60, IF PlI;d)=-1 THEN PRINT AT 
759 RETURN. BXxI, 2%; 
: JEU DL S076— IF,P{I-Ji=8 THEN PRINT AT 2 
LET SE HaNedJeNoUSJEUEJ4Uan #T,2+ 
4TSTAT7ISGAI207I7E2C2E7CG:FOFAFSr ÉGée NÉXT J 
: 7DOFODSFIGOENCOIESNEGESENE7F2NSF 7H SAAG NEXT I 
: 7L2G8 178 7CLELCSESHLF L1HBEECSCICSE 3695 PRINT AT 6,82; "COUP JOUET" 
3A4CdCdCeC1LISASAdASASASCSE2EB48 78. 9838 PRINT AT Ê: 35; "DEP: 
SFAFSFSPTF LESFOF6D2F2D7E Er 2F4F7E S8S7 SLOW 
SELE2ESE7E1ES3ES8E6G4E4E4CA4B4D4CEC SASS IF NOT © THEN GOTO 9108 
AGSESESCSBSDSEGC6EC/COSCSESCdEdEdE ©@gS LET MEMT2 
ISISGSDSF SGSESHSF 6ESB6HSH S129 GOTO 
5 & SÉ06 SAUE *SSLITATRE" 
2618 RUN 
3299 STOP 





Organisez une partie de bridge pour 

4 ou 5 joueurs ; l'ordinateur tient le rôle 
de l'arbitre et tient la feuille de marque. 
Le mode de tournoi utilisé est le 

« Chicago », dans lequel chaque joueur 
est tour à tour associé à chacun 

des autres joueurs. 

A 4 joueurs on joue 3 tours de 4 donnes suivant le tableau bien connu : 
— et 2 contre 3 et 4 





— 1 et 3 contre 2 et 4 


1 et 4 contre 2 et 3 
(Il est possible de jouer 6 tours en recommençant) 
A 5 on utilise le tableau : 
— Îet 2 contre 3 et 4 
— et 5 contre 2 et 3 
— 1et4contre2et5 
— Î1et3 contre 4et5 
— 2et 4contre 3 et 5 
et on joue alors 5 tours de 4 donnes. 
À chaque donne, le programme demande le contrat et son résultat. 
Le format d'entrée à utiliser est. le suivant : 
— T = Trèfle K = Carreau C = Cœur | 
— Les contrats réussis se notent « = » P = Pique SA = Sans Atout 
Les chutes avec «—» et les levées. de mieux avec «+» 
— Les « contre » se notent d'une «æ», les « surcontre » avec «k# (symbole des 
puissances sur ZX81, mais pas 2 étoiles) 
Le programme admet le contrat « PASSE » quand tout le monde a passé: 
Il suffit de taper la touche « N/Line » seule comme réponse à la question 
CONTRAT ? 
A la question JOUE PAR ? Il faut répondre «1»ou«2» suivant l' équipe 
qui a joué le contrat (voir écran). 
Le programme calcule les points en.tenant compte de la vulnérabilité suivant 
la formule « PENT » (personne, eux, nous, tous). La marque utilisée est celle des 
tournois par paire. 
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A la fin de chaque tour de 4 donnes les résultats cumulés sont affichés et 

il est possible de relire les résultats des tours précédents. 

Lorsque l’on demande la suite, le programme édite la nouvelle feuille 

de marque avec là nouvelle composition des équipes. 

Il est possible de s'arrêter à la fin de chaque tour de 4 donnes. (P. Weinachter) 


1 REM Y-NOT NOT NOT NOT NOT à 
NOT NOT NOT NOT NOT NGT NOT N 
OT NOT NOT NOT NOT NOT NOT NOT Ps 
QT RER AA NOT NOT NOT NOT NOT K 


Mg= 
RINT AT Q;: "SONSOIR.";:AT 
""HEUREUX D* SORGRNTISER VOTRE” 
PRINT AT 7,7: SÉENIT CAT 





kB bORbRE 


"ETES VOUS à 


S PRINT AT 12,0; 
SU :S JOUEURS 7?" 


17 IF ASS AND R<id THEN GOTO 
1e D APE THEN GOTQ 1280 

PRINT AT _S.ù; "FRITES LE TIF 
AGE es SORT ET" 


81 PRINT AT 5,9; "TAPER LE PREN 
Les: DES JOUEURS UN ‘PRR UN 
£&2 PRINT 


1 AT ia, @&:; “JOUEUR Lis s 
Ÿ S@ INPUT J#t2) 

AA PRINT Jét4); 
. 78 PRINT AT 12,0; "JOUEUR 2... 
Ÿ &@ INPUT Jé(a) 

SO PRINT Jé(2); 
_188 PRINT AT. 14,0; "JOUEUR GS..." 
‘18@ INPUT Ji) 

148 PRINT Jé (Si; 
1808 PRINT AT 16,0; "JOUEUR 4...% 
"452 INPUT Jé(4i 

153 PRINT Jé(d) 


PRINT AT 18,0; "SI ERREUR TR 
PÈR E SINON 8” 
169 IF AMEN amp THEN GOTO 168 
171 5F NH="E" THEN RUN 
172 BRINT. ET 16.8; 


173 PRINT AT 26,08: “PQUR COMMENT 
E 


& 
192 RETURN 
195 FOR T=1 TO As (H=S] +254 5 (A=d 


eee CLS 
SSE GOSSES SES 
ES FGS D=1 
Sd PREMT AT 21: Ta: POCGHTRRF ET F 
ESULTAT 7° 

250 INPUT Cé 

851 PRINT AT +9; de 
.e5e IF LEN bts * Pen LET C$&=C$+ 


2SS LET Cé$é=0${ TO &) 





254 IF Cé= “ THEN LET © 
S= "PASSE re 

255 PRINT AT 2xD+4,4;C$ 

2S6 IF CH= "PASSE “THEN LET 
2557 IF C$="PASSE “* THEN GOTO 
QESR,PRINT AT 21,0; "JOUE PAR 1 © 
278 INPU 


d 
27e If Fe 1 AND S<:2 THEN GOTG 


a 
78 PRINT AT 2+xD+d4,94+7, "x" 
£E?74 PRINT AT 21, à; ÉCONE TRMÉZ VO 


R& 
274 PRINT AT 2xD+4, 28: “SAT 2+r 


IF RÉ&="N" THEN GOTOG 248 
258 PRINT AT 21,68; 


252 LET HIT, D)ieC# 


28S GOSUB 9590 

286 IF ER=1 THEN GOTO 248 

287 LEF EI-bEN SFR$ EIE,T,2) 

ess LET LesLEN STR$.E(2,T.D) 
298 PRINT AT SaD+i#, I9-ETL; EL 

DBI:AT SxD+4, 28-L2:Et2, T:D) 





TT: 






; _ E RES . 
190 LP INKEYSC>"C" THEN GOTO 17 


299 NEXT D 

300 FOR I=1 TO 2 

310 FOR D=1 TO à 

Der LET E(I,T,5S3 =EiL,T,:S) #E(T,T 
330 MEXT D 

340 NEXT I 

348 LET LA=LEN STR$ E(li,T.:51 
343 LET LE=SLEN STRé& E(2,:T:9) 
RSA PRINT AT. 14,19-L1L;E{1,T 5): 
AT 14,28-L2;E(2,T:5) 

368 LET DIF=SE(L,T,SI-E(2,T,57 
362 IF DIF=Q THEN GOTOQ 395 

36S IF DIF4:A THEN LET DIF=-DIF 
378 LET DIF=INT (BIF/-1904+.S1 
S7S IF Eil,T,:S)) E(S.T,S) THEN L 
ET ECL,T,61=DIF 

S88 IF EULT SI: E(e,T,S) THEN L 
ET Ei3,T,5) =-DIF 

385 IF É(1,T:S)<=E{(2,7.S) THEN 
LET E{l1,7,:6)=-DIF 

3996 IF EL,T.S)<=<Et(R2,T.:S5) THEN 
LET Ete,T.6G)=DIF 

392 LET L1i=19-LEN STR$ E{1,7T,6) 

94 L L2=26-LEN STR$ ECSrTAaT 
4O1 PRINT AT 15,L1:E{I1,T,:6):AT 
15,L2;Et8,T.:801 

dO2 IF _ÀA=S THEN GOTO 1309 

4aS LET F(1r=P(13+E(1,7.6) 

dOdt LET P(2) =P(iRI+Etl1,T.G)xitT= 
1) OR (T=4))+E12,T,6)x{{T=8) OR 
T=3 OR T=S OR T=6) À 
OS LET PRIS) =P{S) +E(1,T,6)#xT=8 
PE Sn OR T=4 On 
LA LET P(d)i=P (4) +EC1,T,GiExT=S 
OR T=6) +Ei2,T,6)+iT=1 OR T=2 OK 


Tzd OR T=51 

42 PRINT AT 20,6; "POUR LE CLA 
SEMENT TAPER C" 

AS PRINT AT 268. S:° 


440 AE PENREVS C2 “C“ THEN GOTO 4£ 


É<] 

452 GOSUS 7008 
460 NEXT T 

478 PRINT É 
471 PRINT “UQULEZ UOUS REUOIR L À 
ES DONNES 7° 

78 INPUT R$ 

478 IF R$="N" THEN GOTO 475 
4c4 GOTO 2600 


À76 PRINT AT 10,0:"EE 


à 










EG PRINT AT 16.0; "NE COMMENCEZ À 
PRBS A TRICHER “ ü 
raa See 16 


1aes PRINT AT_3;:8: "FAÎTES LE TIR } 
AGE AU SORT ET ü 
1@18 PRINT AT S,8:;° ee LE PREN Ë 
OM DE CHAQUE JOUEUR" : 
1926 PRINT AT 28: JOUEUR Loun"; 
1030 INPUT ht - 

1940 PRINT Ji) 


1950 PRINT AT 9,0;:'"JOUEUR Zu." ; 
LO6@ INRUT Jtai ‘ 
1070 PRINT Jh(S); AT 11,9; "JOUEUR 
Bou 3 Ë 
1880@ INPUT US (S) 

1890 PRINT JS): ART 1S,0;i "JOUEUR 

Tr: 

110@ INPUT Jéi4) 

1110 PRINT Jé (4); AT 15,@; "JOUEUR Ë 
1128 INPUT J#1{5S) 

1136 PRINT J$15) 

1140 GOSU 166 

114S GOTO 195 

1158 IF T=1l OR T=2 OR T=S OR T=d 
THEN LET G=1 

1168 IF T=S THEN LET S=2 

117@ IF T=i THEN LET S282e 

115S IF T=e EN LET Gaz 

1198 JF T=S THEN LET G2=4 

120@ IF T=4 THEN LET Gaz 

1210 IF T=5 THEN LET G2= 

1228 IF T=1 OR F=5 THEN H=S 

1238 T=2 OR T=S$ THEN LEFT H=S 
1240 IF T=4 THEN LET H= 

1250 IF T=1 THEN LET He-= 

126@ EF Tee THEN LET.HS= 

1276. F=S OR T=4 OR T=5 THEN L 

ET HEz= ü 


hé 
LL] 

& 

& 
vf 
mz 


SP{LI4E{L,T,GrxlT=2 À 
S OR T=di # À 
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RÉFLEXION 





=PILI+E(L.T 6} #iT=L 
T GS) + {T=2 OR T=5) 
=P(SIi+Et1:7T:G)#T=4 
{T=1 OR T=2 G T=S). 
=PISL+HE(L,T. GE (T=S 
TSH EF=E OR TE) 
; sRISI+EiL1,T,6)#ÎT=E 
V+Ei2,T:6)#T=8 OR T=4 OR T=5) 


1358 60t0 428 

2088 PE ancr 

5018 PRINT AT,18. @: "QUEL TOUR 7? 
Su Et 

2830 IF TT<i OR TToT THEN GOTO & 
&10 ° 


CLS 
26032 PRINT AT 168,6; "ATTENDEZ UN 


SaSS LET T=TT 

2aS34 LET LS=19-LEN STR& El 
2035 LET L6=28-LEN STR& Et 
2036 LET LS=19-LEN STRS$ EC 
59037 LET Lé=PR8-LEN STR&$ E € 


CLS 
2048 GOSUB S808 
2950 FOR D=1 TO 
EG69 LET L1-=19- LEN STR$ 
2079 LEFT L£e-28-LEN STR$ 


E 
E 
LE Ai 
2890 PRINT AT DD, 4; H&{T,.D 
ne es TT: Re 6! Le;Ets 


XT 
21958 PRINT AT 14,LS:E{1,T.S);:AT 
14 ,LG:E{2,T, 
Siéa PRINT ÂT, 16,LS;:E(1,7T.6); AT 
Ltd; EC2,T,6 
3765 LET +248 
8166 IF TSssa re OR T=6s(A=4) T 


270 
8208 PRINT AT 19,@; "REUOIR AUTRE 
PARTIE ==> R° 

2210 LET R$=INKEYS$ 

821S IF BE THEN GOTO 2219 
2216 IF Ré="R" THEN GOTO 2000 
22S0Q GOTO 7286 

3008 PRINT SD En à : “TA 


5018 PRINT “2...":6$(2);" : iTR 
3080 PRINT "3...";0#(8);" L TE 
NT | 
SaS@ PRINT 4...":G$(4)5" : “TR 


£ RINT 
3848 PRINT SR 5 "STAR 






Saoa PRINT AT ©,11; "EU 
RS (CODE tsrRS ET) EE 
Saai PRI 


NT 
SA02 PRINT AT 1,16: "1":AT 1.25; " 


EN; Chi 


LET L=e 
58198 GOSUE 8808 

LET L=S 
SA30 GOSUS 9008 


S0S32 IF A=S THEN GOSUB 1159 
5033 IF A=S THEN GOTO S@Ss9 


ET G=1 
5036 LET G2=(T+1) #IT<=S) +(T-2) &t 


=] 
S0S7 IF nee OR T=4 THEN LET H=5 
S038 IF T=2 OR T=S OR T=5 OR T=6 
THEN LET H=2 
Ssa39 RS T=1i A T=2 OR T=d4 OR T=5 


SQ48 IF T=5 OR T=6 THEN LET H2=5 
S059 PR CP LE 3:15 "EM':AT 5,4: "C 
ONT RES" SAT 118; 0$ CG) i AT S,282;4 


{1H 
SO89 LET L=4 
5878 GOSUB 9e08 
5080 PRINT AT 4,18; Ug(G2);AT 4,2 
= 
5098 LET L=5 
5100 GOSUB S000 


LET 
5120 BOSUE “Sace 
150 PEENT AT 6,1;"P" 


ET L=7 
Sä GOSUB 6888 
LET L=8 
78 GOSUS 9640 
69 PRINT AT 8,1: "1" 
5199 LET L=9 
5206 GOSUE SQ8e 
LET L=1@G 
See GOSUE 9668 ue 
S858 PRINT AT 19,1;"2 
LET L=11 
Ses& a a 8696 


LET L=12 
5279 GOSUE 3202 : " 
5289 PRINT ar 182,:1:"TS 


LET Le 
5306 GOSUE 6068 


+ 5518 LET L=14 
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SS20 GOSUB 9068 
3338 PRINT AT 14,4; "TOTAUX=>" 


LET L= 
SISS GOSLE ss 
5378 GOSUE 00e 
RINT 


LS 
78@S PRINT AT 1@,@; '"ATTENDEZ UN 


POIL IF DIF=0 THEN GOTO 7129 
7612 LET Z=dæx(A=4) +5x(A=5) 


7813 FOR F=1 TO Z 
7814 LET Q(F)=PiF) 
7817 LET G$(F)=J#$(F) 
7018 NEXT F 
70898 FOR B=Z7-1 TO 1 STEP -1 
76306 FOR C=1 TO 
7040 IF G@iC)>=0(C+1) THEN GOTO 7 
7380 LET X=01(0) 
7885 Q (OC) =6 (C+1) 
7090 LET Q(C+1)=X 
7D92 LET A$=G$ 10) 
7894 LET G$(C) 26% (C+1) 
7096 LET G$(C+1) =A$% 
7108 NEXT à 
7119 NEXT 5 
7115 FOR W=1i TO Z 
7116 LET LU) =28-LEN STR& QU) 
7117 NEXT U 
7128 CLS 
ZETR PRINT “CLASSEMENT APRES “;T 
2199 IF T>1 THEN PRINT °s" | 
7198 PRINT * 
2888 RÉ‘, re 
78 = N GOTO 9088 
7210 PRINT “1....":6$(11: TAB Liz 
)-10; @ C1) * 
828 PRINT va 
F Brass": GRR); TAB L(& 
1-10; 012) 5 
2880 PRENT vs 
“Bres":GS(SI: TAB LS 
1-18; 613) cs * 


72532 PRINT 5 
ER EU buse"; GH(4I; TAB Lid 


7266 IF T=A+iA=5S) OR T=Gs(A=d4r T 
HEN GOTOQ 2 pr oedi+2500+ (A5) 
7261 IF Lé="A" THEN GOTO 7290%1n 
=4) +7S008 + (A=S) 

FRABRET dE "E 19, Fi HUE ==} S&S 
| == : "REUQOIR L 
ES SELS 2=s R° 

7275 LET L$=INREV# 

2378 IF Lé="" THEN GOTO 7275 
7288 IF Lé-="s" THEN RETURN 

7284 IF L$é="R" THEN GOTO 20608 


728S Sans >" A" TFREN GOTO 7275 


F287 PRINT_"CLASSEMENT FINAE" 

7283 CGOTO 7198 

7290 IF A=5 THEN: GOTO 750 

SPAM PRSNT, 19. @; PEL TCITATION 
+ 

PS8 IF GI2Y=QECI) THEN: PRINWF ,," 

SANS OUBLIER “;:G#4(2). | 

738S IF Q(S)=0(1) THEN PRINT ,,." 

NI NON PLUS"; G% (9) 

7318 GOTO 479 

+583 PR rs AT_14,65; "FELICITATION 

SR _":G#$C1)I Ÿ TO 8) 

F7S8S PRINT 

FPSAr IF QU1) <2GI2T THEN: PRENF .* 


7510 IF S(2}=012) THEN PRINT “sa 
NS OUBLIER “i:G$(a):" st 
7S1S PRINT 

FSI IF GS <:Gier FREN FRINT ‘ 


7528 IF Q(S3)=011) THEN PRINT NI 
NON ETS ":6G$(S1 | 


30806 BRIN AT 

3810 RAND TuBR Kogis 
S919 PRINT AT _L,9;":";A 
LAT L,18;": "SAT L,21;°": 
sue 


VU=G 
SSa4 LET Vous? AND J=1) +(D25 
due J=Re1) + (D=d41 
SOS IF ÉSe PASSE “ THEN GOTO 
9519 LET C=CODE Cé&1i1)-28 
sh IF C+<1 OR Cr? THEN GOTO 955% 


2539 LET K$=C$1(2) 
EE e-Nou KR$="S" THEN LET Kg=0${2 


3550. IF Ké<>"RP" AND K$&<>2"C" AND 
KS<> "KT AND K&<>"T" AND K$C "SA" 
THEN GOTO 95968 











REFLEXES 


eSse8 LET S$=C 
5 22 Êt- De THEN LET S$=C#t(4 


* THEN LET R=8 
“ THEN GOTO 9668 


x THEN LET CO=2 
fs" AND,SS<2"#2" AND 
Sheet AND S$cer"= 


JA 

si 

“l 

ES 
CEAGOE  Z 





{a 
SSSL IF K$é="SA" Then LET Ré&=Cg(C& 


R CODE R$ 


) 
9595 IF Rh(1I="+" OR RYLLIEU-U OT 
HEN LET M$=R& (1) ni 
9596 IF R$(1)="+" OR R$(L)="-" TT 
HEN_LET R&=R#(2 TO ) 
0597 IF M&="+" OR M$="-" THEN 6C 
TC 9610 : 
9598 IF R#(LI)="+#" OR RHILI= "HE 
THEN IF R$(2)="=" THEN LET R=0, 
3599 IF R$iL)="r" OR R#(1)="#xX 
THEN IF Réig)="=" THEN GOTO 9668 
9608 IE R$(1)="x" OR R&(LI="xE" 
THEN IF RS (2) <>"+" AND RE(2) <>" 
“ THEN _GOTO 9500 “ 
2601 IF R&(1)="+" OR R#(1)="Er" 
THEN IF Rétai="-" THEN LET S$s"- 
3685 IF_R#CII= "+" OR RSCLI= "+" 
THEN LET RS=R&(S TO ) 
3810 LET M$="" 
3611 FOR F=1 TO LEN R£& 
3616 IF CODE R$(FI=0 THEN GOTO & 
E4a 
S62 DE _R$(F) «29 OR CODE R& 
0 9600 

F-1) 

LET RÉ=SÈ4+RE 

OTO_ 9600 

2 

re] 





£ R=UR Éd 
Ô REM OK==) CALCUL 
Gi IF CiR<-6 OR C+R>7 THEN GOT 


SSaû 
367% IF R<D THEN GOTO 9810, 
S680 LET PTS=(C#20)#{K$= "T7" OR, K 
="K°I+(CESO) s(KE="P" OR K&="C 
(GB + (C-17 #80) z (KE= SP) 
S866 LÉT PTS=PTS+PTS#(CO=1) 
Srea LET PTSSPTS PTS 253 (C0Ee) 


9719 LET PTS=PTSISOE%((C AND (K 
AE K$="K"3)}+(Cc4 AN {K&=!" 
PF!" OR AE ES AND K$="54"3 


AG 
Q ZT 
er 
di 
fl 
se (fl 


Sép" or 


DU XD Fm U Ame 


œ 


g+ 


L { 
$ ; { 
ET ; 3 K 
[a] 

L S AND !( 
$ ; 4. { 
: AND K 
RE 11)" PTRISMOE PIC ICS | 
LET PÉRUI TS NRE VER RCICTES 


2 

LET _PTS=PTS+508s(C=6 AND LU= 

BrtC=5 AND V=1) +1008s(C=7 A 

GG) +1500%x1{1C=7 AND U=1) 

Feb, or lerser (cs si OR CO- 

IF R=@ THEN GOTO 9778 

8 LET PTS=PTS+I9D0ERXIRKE=T 

HENRI +SGEREKEEPS OR K$&="C" 

OR K$&= SP ris eu) riaouans tue 

+2OG RE (U=L) ) 5 (DO=1] + (LODERE (U 

? +4GBxR x (U=1)) + (CO=2) 

27@ LET Éfa'iih) sPrsrios 2} 

9788 LET E(2,T.D) =PTSxtJ=2) 

27538 CGOTO 9662 

SSAG PRINT AT 39,9:;"* 
LET ER=I 


SS8e RETURN 
SES LE cDree0 

£2 HEN GOTO Saum 
SSS6 LET PTS=SOERE (USD) +10B4%RE LU 


SS48 LET E(2,T.D) =PTS+(J=1) 
S8S5@ LET E(2,T,D)=PT = 
5808 PE Bee «100 (m1) +20c 
=(100+(H- a À = 
ou rÉTC Be 11 x308@) & (U=1) ie 
28 LET PTS=PTS+PTS + (CO-2) 
S95e GOTO S540 
9998 CLERR 
33S1 SAUVE “HSRIDGE" 
RUN 









HU HE AE PEN NW 
5 


nm 


K 
C 
3 
K 
C 
sl 


3 


IG 0 = AZ OZX 


pu) 
k 


NN Ne NN OON OONSE NM HAN AA NX 
Dm GB CND + Gin 


PAUL OT RATER RENE 


TLLNLZSOR QUO 








Une très belle version tout BASIC de « Pac-Man » pour ceux qui se méfient 
encore de l’assembleur : ce jeu très coloré est encore assez rapide 
pour vous donner des sueurs froides. (J.C. Jacquet) 


REM ï € Doé 
REM 
REM PACTIME-MANIE 
REM : 
REM D © J-C JACQUET 
REM d 
REM : FEURIER 84 
REM Ô 

4 POUR ZX SPECTRUM 
REM 16K OÙ 465K 


CLS : PAPER @: BORDER @: IN 
LET ms=@: LET mt-=-1:8@&@ 
A=G: PRINT AT 2,8 


928 ET 
; "PACTINE MANIE":AT 6,6; "VOUS ÊT 
ES PRANS UN LABYRINTHE AUX PAROIS 


OH OR LOTO + 10 ON CA Be CE NU ta 
pl 
nm 
Z 


GR HEEES ES ES 








HINEES ET DEUX FANTOMMES ESSAYEN 
T DE VOUS MANGER VOUS AUVEZ TROIS À 
GLOUTONS.LE BUT CU JEUX ET D At 
ALER LE PLUS POSSIBLE DE PASTILL À 
ES EN UN MINIMUM DE TEMPS.LORSQU 
E_VOUS AUEZ MANGEZ TOUTES LES PA É 
STILLEDU LABYRINTHE ALORS VOUS F 
ASSEZ A UN AUTRE STAGE." AT 18,6 
3". » BONNE CHANCE,..." 
S1 FOR I=1 TO 1669: BEEP .1,16@ 
LET R=h+1: IF A=99 THEN &GQ0 TO 


ré 

S2 IF I=18 THEN LET I=@: PRINT 
AT 21,18; 

3S INK ENT (RND2S) +1: PRINT AT 
21:I; © yJ-C JACOUET" 

4 'NEXT I 
REMH 


REM 
28 LET s=û@: LET at=0: LET stas 
221: LET bonus=0@ 
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REFLEXES 





PE : DER _@ 
288 CLS : Te 6: PLOT 2S,180: & 


RAU _48,@,-2: LOT F5,119: PDRAU © 
:-66: PLOT 24,128: DRALU @,-66: F 
OR F=i T ; AU 7,:90,4: DBRAU 7, 
B,-4: NEXT F: DRAU %, Te 
81R PRINT ; FLASH L'AT di "@"; 
AT 8,7; "@";:AT 10,5; ÉLash GS; INK 
6; A 11,4," 3" 
211 PLOT 118,0: DRAU 0,175 
212 FOR i=1l TO 29: PRINT ; INK 
ME SR 
1 


213: NK_ 6: PRINT ; FLASH 1: AT 
18,23 "BACTIME-HANT 
814 PRINT ; FLASH 1:AT 1,121; '"PAC 
TIME-MANT" 

215 INK 7: PRINT ; FLASH 1L;AT £ 
NS ue 


816 PRINT AT 17:55 —--3: GAUCHE 
817 PRINT RAT 8,17;"5 --3 DROITE 
218 PRINT AT 1@,17;"6 --3 EN ERA 
D849 RRINT AT 12,17;"7 --3 EN H8 
828 PRINT 16,19: "APPUYER"; RAT 


17,28; "SUR Alogsé* 
221 FOR e=1 TO 4000 
sn IF ENKEYS&=" " THEN 60 TO 25 


GEEP ,S,7: BE 


“azs FOR xz2 T0 5: 
: 1814: D BEËP 4,7: 
3:08: 


1008 FOR n=1 TO 9eo 

1081 LET t=t+1: 

1003 IF 8=5160 THEN Go TO s8awa 
300 À Zz,X 

1:00 + m=1009 THEN RESTORE RE 

AD z 

TROT LÉ ATTR (Z,X)=6 THEN GO TO 


3aaû 

1402 PRINT AT zx: INK 7; OUER 1 

“AT: PRINT ; FLASH 1; INK 7: AT 

‘#6; a: PRINT AT ZX; INK 2; QUE 

1488 IF ATTR (g9,m)=6 THEN GO TO 

30 

144 PRINT AT g,m; INK 7; OUER 1 
: BEEP .@81,58: PRINT AT 9, 

! INK 1; OVER 1; "ii" 

148S IF INKEYS="5S" THEN LET a=1: 


zu: 


. 


LET h=h-1: LET 2Xx=5 
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_ 99 LET zx=8 

198 LET v=19: LET h=16 

116 LET a=@ 

. 111 FOR X=0 TO 206 

112 RERD Z,XxX:9,m 

113 IF m= se THEN GO TO 215 
114 NEXT 

115 6Q SUB 500% 

116 RESTORE 

117 EH 

115 REM 

128 DATA _15,2@,15,15,16,28,16,17 
3,17,20,17,18,17,19,16,19,1%,18 
19,18,17,17.19,12,1%,16,19,11,17 
:15,:19,18,1/7,14,19,9,17,15,18,9, 
18,19,17,9,19,15,16,9,19,1S,16,8 
:19,16,16,7,19,17,16,6,19.18,16, 
5:19,20,16,4,19,21,16,53,19,22,16 
:2,19,88.:16,1,18,285,1S,1,17,22,1 
4,1,16,22,153,1 

125 DATA 15,22,12,1,14,22,12,2 
14 ,295,182,53,14,24,12,4,14,25,12,S 
:14,26,12,6,14.26,12,4,16,26,12. 
R,10:280:11,8,10,84,10,8,16,29: 16 
:7,:10,22,10,6,17,29,19,S.18,89, 3 
R,4+,19,88,16,5,19,24,9.3,18,25,8 
13:19,86,7:39119,87,7:4,19,28:7, © 
:18,28,7:6,17,288, 7, 7:116:28, 7: 83 1 
5.288,98, 14,28,9,8,15,28,9,7,12, 
28,9,6,12,29,9,5,12.50,10,5,11,5 
B,18,4,18@,50,106,53,9,58,9,53,8,30, 
S,93,7:30,7,:9:6:80, 7:4,5,3@%,7:5 
Les DATA S5,30,7,5.5,29,7.6,5,28 
3737136: 20, 7:38, 328,7, 9,8,28, 2, LA 
:9:288,7:11,10,28, 7/:12.10,27#, #9 193 
:10,26,7,14,9,26,5,14,8.86,9,14, 
7,26,18,4,7,29,:190.15,/7,24,10,12, 
7,293,1@,11,7,28,10,19,7r,:21,9,1G, 
93,21,8,10@,10,a1,7,19,10,290,7,9,t 
1,19,7,8,11,18.6,6,11,7,5,8,11,1 
6,:5.:7,18,16,5,6,9.16.5,5.,8,16,S. 
4,8:17,5:5,:818,5,28,6,19,5,1,7,1L 
8,5,1,6,19,5,1,5,19,5,2.5,168.5,8 
15:17:9,/4,5.:16,5,5:9.15.5.,6.60,16 
:9:78615,5,8,6,17,5.9,8,18,5S,158 
:6:19,5,11,7,19,5,12,8,19,5,1S,9 
:19,5,14,11,19,5,15.12,19,5,16, 1 
2,20,5,17,153,20,5,18,14,20,6,18, 
M ANR AA AUS 
L 4 El + À « 5 
57i1o0ûd 4 * 3 4 29,1 
131 REM 

132 REM 

140 BORDER G: PAPER 6: CLS 

141: LET vies=S 

151 LE = 

199 PAPER 0: BOR 


1486 IF PEN THEN LET 3=2: 
LET h=h+1: LET =5 

14@7 Le INREVES" ES TREN LET a=5: 
LET va=v+i: LET z2x-=5 

14685 fe IN Re Rhin LET a=d4: 
ÊEr væev-il: LET zx . 
14@ IF zx2=5 AND SCREENS Ewshi=" 
0" THEN LET s=5s4+1@ 

1428 IF ATTR ivoh}i=d OR ATTR (v, 
h)=5 THEN GO TO Sa 

1508 IF a=1 He PRINT AT vsh+l; 


PAPER 05 INK SAT vVohi INk 
1510" IF ame THEN PRINT QT oh 
SPREER ai INK FAT Vohj INK 
1628 IF a=8 THEN PRINT AT v-1,h; 
SPARER 05 INK @5* “SAT Vohi TI 
1530 _IF a=4 THEN PRINT AT v+l,h; 
SPRBER 05 INK gi" SAT Vihi INK 
1560 NEXT n 

1561 REM 

1562 REM 

1565 REM 


3008 IF ATTR 3 
m)=6 THEN, PRINT. "AT 4 h; INK @; F 
APER @;° LET at=1l: G6GQ TO S@11 
3801 IF a=i THEN, PRINT AT voh+i; 
PAPER @; INK &@; 


So0e IF a=e THEN, PRINT AT voh-1i 


TZ 
rer IF _3=5 THEN, PRINT AT Y—-Lih; 
PER ai INK 
502 IF S=4 THEN, PRINT AT v+l,h; 


12 LEFT 92. EP _g,G: BEE 
2/3,0: BEËP 9/9.0: BÊÉ :8 PRÈÈ 
P 9+2/5,5: BÉEP 9/-3,2: BEEP CET 
Bee: JPÉÉP 9/8, ,6: BEËP s+2/6,8: B 
Sais 2 NISICTHEN LES 20-8008 
De902. or 
TR (Vih)=S TH 
âet> re EURE PRE 6 Ep el 
E1Ki=6 THE | 
DORUPER MERE Vibes then DRyNr 
M}i= EN PR 
; PAPER QiAT vohin à us 
3019 IF ATTR (V:hi=4 THEN PRINT 
5 INK d'AT v,h;'"ée" ; 
3820 ET v=80: L 
3081 PRINT ; INK 


ET h=16 
6 ; AT voh5"e" 


+880: CLS : BORDER 8: PAPER 9 
i TS 24 


4082 INK 1: PRINT AT i,2; "00000 
00000000000000900000000000° 





4038: IF ALES THEN BRENT 5: INK 
4: AT 21 LÉRSSSSSCRREEt VIE: EEE 


4831: IF Er THEN_PRINT ; INK 
d;AT_21 lÉRSSRRRSRSSES VIE -REE 


4032: IF Vie=1 THEN PRINT ; INK 
di BT 21 Di LAERERRSRERERS VIE : Ré 


LS: rSS0 D" 3 INK 2; FLASH L'AT 
2052 PRINT. 4 INK 28; FLASH Li AT 7 


3:15; ° 
Séa8 FOR Ÿ a TO 21 
ss LS &: PRINT AT i,:8;: "SAT 


3 31; 
4648 INK _S: PRINT AT 2,29; FLASH 
1; "SCORE: ";:S: AT 2,5; "BONUS: "; bo 


nus 
40506. NEXT i 


4061 INK 5: P 
AT Ste Apr 


2 
4 
SD F TE 14 


4065 PRINT AT 16,14: ‘II 
NAT 19: ne 


PF INT 
“HT aT 8,20 Jin 


HESEMR "AT 


3: AT 294 18; 
AT +80; 








HAT 7,87; "HU: RIT 7,29; "H';:AT 5: 
20; "NU: AT 8.22; "HNHIUN: AT 52,27; "È 
*:AT 8,290: "N°: AT 9,200:"HU: AT 9,2 
7H: ÔT 10,85; "IN: AT 9,29: "H"; 
at 1a,e0:"';:nt 11,80: "hfheiatT à 
1,25; “NN; et 18:20 lus k 
4670 PRINT AT 15,21: LLTUTN DE aT 
14,21; "HU; AT 14,27:: 4,29 
:Méat Ms 21: ftoat dose LA TA 
+ is,29; "N";at 15,26: “HN AT 16 
,21; ‘Hoiat 16,27; “fier 16,29; °"t 
“pt 17,81: "HAT 17,07: “HAT 
7:89; D'r RAT _+ 24; "NH": AT 18,81; 
AT: AT 18,26; "HN: AT 15,29; ‘HN 
4088 PRINT #1: FLASH 1; MSCORE 
“ims; FLASH @Gi* “; FLASH 
Li "MTENPS : "mt 
4089 PRINT ; INK LOT Svdiïo: 
4098 PRINT : INK S:AT vih;"# 
4892 RETURN 
4098 REM 
4G94 REM 
495 REMH 
4096 REM See 


S020 FOR x=@ TO 7: READ Fnh: 
# USSR ‘“d'"'+x,rn: NEXT x 
Sseei DATA 690,255,129,2955,299,198 


1: 68 


Sa2s For ren To 7: _READ rn: POKE 


+X > NE x 

! suse DATA 85" lez, 255, 240,240,255S 

126,68 

SUSQ FOR x=0 TO 7: RERD rn: POKE 
US "b'+xX,fNn: NEXT x 

Den DATA 204. 204,204 ,204,204,28 
:284 204 

É68S FOR fee Le 7: EP? Fn: POKE 
USR PU+HX: NEXT 

F8804BATR 184, 188, 258, 15,15S,255, 

Sea FOR sn TO 7: RENE rn: PORE 
USR NEXT 

Sadi DATA 807 126, 519, 219,255,255 

:152,18S8 

SàdS. FOR se TO 7: FER rn: POKE 
USR "s"+x, NEXT 

s016 DATA 84,60, 186, -851,281,186, 


S0R@ LET s=bonus+s: CLS : INK 6: 
PLOT 25,120: DRAU 46,6,-2: PLOT 
. 732 119: DRAU G,-66: PLÔT 24,126 
: DRA AU à,-66: FOR f=1 TO 3: BRAU 
‘7,84: DRAU 7,6,-à4: NEXT f: DRB 


FD dodo 4 233; FLASH B; INK 
Sail PLOT. 119,6: DRAW @,178 
F0 28: PRINT : 





EXT à _ h 
6015 PRINT ; INK 7; FLASH 1;,AT & 


218; "Se RÉSULTAT D; 

S@16: 6: PRINT ; FLASH 1; AT 
19,1; "PACTIME-MANI" 

SO1L7: 6: PRINT ; FLASH L'AT 
1,1; “PACTIMÉE-MANI" 

6018 IF ms>s THEN GO TO 6058 
6019 IF ms+<s THEN GO TO Érre 
Sae2eu ae ms =sS re 60 TO Ej] 
DÉSS PRINT AT Fes "HÉLAS VOUS A 


SOS2 PRINT AT 5,16; "PERDU.U0TRE 
68SS PRINT AT 6,16; "SCORE EST DE 


6057 PRINT AT 7,16;8;" PTS EN * 
6058 PRINT AT 6,16; 1;" DSECONDES 


6859 PRINT AT 8,18; "LE MEILLEUR 


PRINT AT 10,18; "SCORE EST _‘“ 
PRINT AT 11,16; "DETENU PAR 


PRINT AT 18,16;:a%; EN _" 
PRINT AT 153, Téintie DSECONP 


PRINT AT 14,16; "AUEC ‘“imsi" 

16,17; “VOULEZ-VOUS 
7,18; "REJQUER (0 
ÉN RETURN 


ana. Bo 
SUanss Q6 
Gin -ma -mm 


a 


œ 
+ OUDU:E AUS GD FE 
3 
3 
H 
Z 
3 
D 
3 


venmoTUanpATT 
HO > 6G66-S 
CT LES RE SIN 


FLASH LiAT 8,4; "@"; 


ns = LET nmtzt 


S181 LET 
8118 PRINT AT 4; ue A 
Eez" 

S111 PRINT AT 8; "GAGNE. VOTRE 
"PRINT AT 367 SCORE EST DE: 

6112 PRINT AT 7,15:5:"* PTS EN ‘ 

6113 LET UA=S2: éo ae 6857 

6114 FOR ' R=1 TO 1698 

Si15 IF INKEY$='"'0" DEN GO TO S& 

GL16 IF INKEVS&="n" THEN STOP 

6117 FOR X=1 TO 3: BEEP .,.93,7: BE 
EP. ,1S,4: BEEP set BEEP 53,7: 
NEXT X: GSEEP 38: 

5118 IF INREY #2 A “ THEN STOP 
6119 NEXT 

6150 IF Lea TREN GO TO 65100 
615S IF mitot THEN GO TO 605% 
G1S56 REM 

85157 REM 

61S8 REM 

6159 


REM 
Suau CLS : BORDER 6: PAPER 1: LE 
T _v=19: LET h=16 
S6@1 LET Sr scanner LET bonu 
S=bonus+s: LET 
se@2 PRINT SE 102 22e: INK 6; FLAG 


H 

5003 FOR X=1 TO 3: BEEP ,5,7: BE 

EP _,.1S,:4: BEEP .:15,4: BEEP 9,7: 
NE X : E  : | 


BORDER 6: PAPER @ 
6005 GG SUB 400 
8006: (PRINT AT Vehi INK 6; "€" 


SCÛRE : © 


—. ge à me 





C 


|] NTIE UOTE 


esleRAnA fo 
ù is fai 
î 


ms] 
Dec 
Ci © CO CG 


oui 
go 


ac © CC: 


1 
0 


re 
COGGOOGOUCOSOCGCQ 


G © 


PACTIME-HMANI 
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REFLEXES 


Atomes 


Découvrez, d'après les déviations subies par un rayon-sonde, la position des 
atomes cachés par le ZX81 : attention, ce jeu difficile fait appel à une bonne 
mémoire visuelle. 

Pour ceux qui trouveraient ce programme trop facile (!!l) il est possible de 

le compiler avec le compilateur de PSS, le MCII pour obtenir une accélération 
impressionnante en faisant attention aux SLOW, FAST et REM à supprimer et 
aux DIM à convertir en variables alphanumériques simples. (M. Chanaud) 


18 RE ALRIRÉNENTS 


É GRILLE 8x8 
res0 BOINE  ALE BUT DU JEL EST 































XT_I 
FOR _T=1 TO Sa (N+156 
SE 888 RER 
RRINT LE ZX-81 DiSPOSE ALE 
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eee: PE "RATOMES "CT DANS. UN... 











DE DEDUI 
2240 BRINT _2POSITION DE CES ATOM 
an s” 
1a@ GSOSUR 7008 7250 PRINT "LES DEUIATIONS SUBIE 
119 CLS - 5 PAR DES" 
148 GOSUE 9508 786@ PRINT “RAYONS QUE VOUS ENUD 
166 GOSUB So88 YEZ DEPUIS" | 
206 REM RARE fe7e PRINT “LES COTES DE LA GRIL 
205 SLOU 288 PRINT ,,:"POUR AUOIR UNE UIS 
210 IF N=1@ THEN GOTO 9109 UALISAT ION' | 
880 LET Z$s" LIGNE D" ENTREE 7298 PRINT "DES EFFETS QU'"'" ONT- 
7 DE @ À 9" LES ATOMES," 
230 cosUus e20oa 7309 PRINT "“SUPPRIMEZ LES INSTRU 
240 GOSUE 8300 CTIONS Saÿ" 
255 IF Ag$="C" THEN GOTCO 92@@ 7510 PRINT "DES LIGNES ESS ET E 
268 IF CODE A$4:426 THEN GOTO 24m ES" 
26S IF CODE A$2S2 THEN GOTO 24@ 732@ PRINT ,y3"...ET N'" QUBLIEZ 
_ 878 LET LE=CODE Ag$-28 PAS DE LES ‘ | 
275 LET 252 COLONNE" GES PRINT “RETABLIR SUANT DE JO 
280 GOSUE geo ER... 
28s GOSUS 834 | 5548 PRINT ;,:"VOUS AUEZ DROIT À 
299 IF CODE AS<28 THEN GOTO 285. 18 ESSAIS." 
295 EE. CODE ÉRLE THEN GOTO 285 7358 _ PRINT _“R TOUT MOMENT LA TOU 
saë CÉ=C AS-26 CHE Æ PERMET" | 
S@S FF! cÉ:@ BND SE<>:9 AND LE+<> 7368 PRINT "DE CONFIRMER US DED 
a AND LE+<:Q FHEN GOTC Saug UCT FANS..." ° 
310 LET SU=0 7400 RAND SIN PI 
313 IF LE=-Q THEN LET SU=1 7485 PRINT AT 21,29;"E2" 
516 IF LE=9 THEN LET SU=-1 7410 IF INKEY#<:"" THEN RETURN 
329 LET SH=0@ 7415 RAND SIN PI 
382 IF CE=9 THEN LET SH=-12 7420 PRINT AT 21,29; 'EM" 
323 IF CE-Q THEN LET SH=1 7450 GOTO 74@ Q_ 
330 LET N=N+1 5480 
Sd4o GOSUE 64008. 
359 LET Z sus 8085 CLS 
360 GOSUE g82û0@ 8816 FRINT Q5 
420 PRINT AT N+2-2, 2RSICHRE EN+ZL 8615 PRINT “G";TAB 2@;"@" 
S6):T 25; LE; CE; S020 FOR I=1 TO 8 
425 R se. T& 
430 I; 
432 I 
445 Té 
450 3088 I; 
460 sara P ES 
7668 3100 RE 
781S FOR I=1 TO d S1@S FOR I=1 TO 4 
7G280 PRINT ÀT 5,@;" 8110 LET L(I)=INT (RND+8) +1 
612 LET C(I)=INT (RND&61 +1 
‘ 8130 REM PRINT AT L(I)Ix2+1,C(I) + 
2+1;"m" 
R140 NEXT TI 
8150 LET N=0 
316@ RETURN 
S29 REM L'ÉCRIT TOME. 4.) 
S2QS LET A=760+PEER 16896+2S64PE 
EK 155397 
8210 LET AB=INT iR.-256) 
PRINT AT 18,28ûù; S220 LET A1-=-A-2564+H2 
8236 PRINT A +8; 
PRINT AT 5,8: 6240 POKE 16998,A1 
&250@ POKE 159399,A2 
S260 PRINT Z 
6270 RETURN 
8500 REM 
3310 REM 7 É 
5sea IF INKEY#<"" THEN GOTO 8528 
655Q IF _ INKEY$="" THEN GOTO 855@ 
8540 LET Ag= INKEY $ 
3350 RETU 
5400 
541 RINT AT LEXS# 






































SSQS FAST 3358 PET sUu=e 
8508 REM _? 2950 LET SH=-il 
8518 IF SU+0 3970 GOTO S578a ne — SRE 
SSe0 IF SH<:@ 3800 REM SAS CR TETE 
DÉDR TA & PRINT AT N+è 3@ LE] 
saz #2-8,50; "AB" 
8540 LET CE=CE+SH Sa3@ RET =1 
SSS@ LET LE=LE+SLU Sade 
SS68 REM PRINT AT LExR+1,CEx2+1; 21auù 
ASFR IF CE=ù THEN RETURN 3110 LET £Z$="POUR LA SOLUTION AF 
GS71 IF CE=9 THEN RETURN FUVER SUR . 
RS78 IF LE=R THEN RETURN S1E0 GCSUE S200 
8573 RETURN 3160 GOSUE 6500 
SES 3170 IF A$<3"C" THEN GOTO 2160 
. 5676 SPNOTRES RCI EN TEE PATES 2200 RENM DSC CITE TECH | 
| 
8GRs LET CA=CE+SH 218 LET SUR REUQUER , PRESSE | 
3619 FOR I=1 TO 4 Z UNE TOUC 
S620 IF CH=CUI) AND LE=L(CI)J THEN 3229 GOSUE LEdoe | 
GOTS 908% 32530 ERTNE AT _20,24.; “EIRE | 
SS8 NEXT I 92340 FOR I=1 TO à | 
SSd@ FOR _I=1 TO 4 2250 PRINT AT Lillx2+1,C(Iixe+1; 
RSR IF CR=CIII AND LE+I=LIII TH LE 
EN GOTES gs S25@ NEXT I 
+ BEGR IF CR=ECIIY AND LE-I=L (I) TH 3270 GOSUE 8508 
EN SOTO Sam S280 CLS 
SGrR NEXT I 3290 GOTO 158 
SES GOTO ESS8 3300 REMH 
SE90 RE‘ ; | 
2. AS1A LET Z$é=" IL Y À SSSR D" 
3700 LET LA=LE+SU INTRODUCTION," 
&71@ FOR I=1 TO 4 3320 GISUEB 8200 
S7e8 IF LA=LIII AND CE=C(I) THEN 3330 FOR I=1 TQ 15 
GOTO aea8a 3340 XT I 
RFG@ NEXT I S3Sù GOTO 208 | 
2avF4@ FOR I=1 TO d 3500 | 
SFSQ IF LA=LEII) RND CE+I=C(I) TH 
: EN GOTQ SQaS50@ 3510 RAND 
S760 IF LA=LEII RND CE-1=CU(II TH asSRG CLS 
EN GOTQ souëu 23580 DIM Lid4) 
R377@ NEX La 3590 DIM Ci4) 
SYS0à GOTO 35538 3690 LET Q$="+19 LL 8 S 4 S 6 7 8 
3790 REMH = BAS = a+" 
SS@6 LET SU=zlL 3618 LET S$=" IITIEIIIIITIIT 
SS10 LET Sh=0 
Re GOTO S57E& 3620 LET T$=" tt tt tr | 
A84Q REM ----——--——-—-— HAUT —----- " | 
S&Ss@ LET SUz=-1 3530 DIM VISA) | 
8860 LET SH=2 : SG RETURIH | 
3878 GOTO 357 3300 REM i 
G888 REM =--—————————— DBROITE---- | 
Sage LET SU=u 9Ses CLEARR 
891 LET SH=1 SS18 SAVE "ATOME" : 
SSs209 son S57@ 2815 BEN SEIATONES : 


Invaders | 
(Spectrum 48 K) 


Sur la demande de nombreux lecteurs qui possèdent un assembleur pour le 
Spectrum voici un jeu d’Invaders saisissant dont l'introduction doit s'effectuer 
en suivant les instructions ci-dessous : 
Ce programme peut fonctionner seul sans la partie BASIC. Celle-ci contient 
la présentation, le réglage des touches, vitesse. 
Il doit être assemblé sur un Spectrum 48K à l'adresse impérative de 32000. 
Les caractères doivent être définis normalement c'est-à-dire en BASIC, ou 
parl' intermédiaire d'un assembleur, à l'adresse 65368 {adresse d’ origine). 
— Une fois ces deux opérations réalisées (assemblage + caractères) : 
— Taper la partie BASIC 
— Puis faire : 
(1) a) SAVE « INVADERS » LINE 1 | 
b) SAVE « CARACT » CODE 65368,80  - . 
c) SAVE « INVADERS » CODE 32000, 1800 | 
Votre programme est prêt. 
— Pour l'utiliser : Faire LOAD”" pour (1) les deux autres sauvegardes | 
se chargeront automatiquement. (B. Clergeot) 
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un 1 LORD “CARACT "CODE 65568 LD ;==22R22S=SS2ersSeESszz=z= 
LL 2 LORD “INUAD DERS"EODE NRE eo, 5 : 
> PE a VER. 9: BORDER 0: I 5 j EL --SPRACE INYJADERS-- 3 
LL] ATEN 2: FO à, N=6 TO 255. STEP - lammmmeneeencenmmemsesss 
eux N Dao DRAM Tes Mere NE 6 ; (CI) 1984 CLERGEOT 
Los Em K_7: PRINT FT 26:87 "0LERS 7 DEFINITION CARACTERES 
LL : S PRINT AT 28; 8; “INURADERS & 4 B jÉEREEEREREEESEREXREEE EX 
[a 74 14 INK S a ORG 65368 
à Le 18 DEFS X801018808 
2 1 PÉRE csiene 
RUE Mere ner s BErS 01010108 
2 PRINT AT Eee” E ÆEEEE 18 BEFE Zigaaaa1e 
NE - É ENT BTS A En MAUR 17 DEF 00800000 
26 PRINT AT _10,0;"E EEEE 15 
EEEE ÊE E" 19 DEFB @ 
28 PRINT AT 11,G; "EEE EE € 29 BEFB %11111141 
E E EEE EEE E E ÉE" 21 DEFE %*1880@@û 1 
S6 PRINT AT 1i2,G;" _ DEFE 0@,@,@,0,@ 
@ OVER 1 &4. DEFE @ 
Q FOR N=74 TO 124 STEP 2 25 DEFE %eaa11aa8 
2 ÉÉSENREds PRÉUTRER 2: DEEE c00811808 
2 IF INKEY$<> THEN 60 TO 18 #2 DELR oui 
& NEXT N 23 DEFS 00011000 
&G FOR N=75 TO 125 STEP 2: PLO 59 DEFS x*800110@@ 
aN: BrA U 255,0: IF INKEY#<>"" S1 DEFS @ 
ÉN G0 TO 1904 se 
S NEXT N 33 DEFE @ 
S6 GO TO 110 34 DEFE 00011886 
g 60 _ SUB Saoe 35 DEFÉ X0801108@ 
8 RERoNEe _ BÉFÉ Aideiien 
30088 +N,M: X # 
& READ M: POkKE 50000 N, NE 36 DES 2109011001 
2 CLS : QUER @: INK ? ze 
S PRINT ÀT 8,5; "CHOISISSEZ LE 4+a DEFS %11111113 
OUCHES FN PNEU 41 : 
A 43 BEC 295/288,255 
; LASA deu, Gi "TIR 44 DEFB 2955,295,255 
1040 IF INKEYS=""" THEN GO TO 164 2 DEFB %@111111@ 
150 POKE S2729,USR 50008 47 DEFE %100810@1 
2360 PRINT INKEVS 48 DEFB %11Q11081 
1G6S IF INKEY$S<>"" THEN GO TO 18 49 DEFB 11811011 
= ; 59 DEFE 11811011 
878 PRINT AT,18,8@; "DROITE ss 31 DEFB %11111@11 
: FLASH 1:79 58 DEFS %11111111 
78 IF INKREY#S="" THEN GO TO 187 ss DEFE 255,290 
362 POKE S2950,USR S0B@0 55 DEFE %10a18@@1 
GA PRINT INKEYS 56 DEF %X81881018 
1AR IF INKEYS<5"" THEN GO TO 12 S7 DEFB “00101108 
3 58 DEFE %111111@@ 
1118 PRINT AT 15,0; "GAUCHE ne 59 DEFR %@@111111 
, FLASR 1,7; 68 DEFE XQ81101@8 
L28 IF INKEYS="" THEN 60 TO 11% 621 DEFB X@181@a81@ 
62 DEFB %X10001@81 
184 POKRE S2245,USR G0908 65 
I2R PRINT INKEYS Ed. DEFE @ 
159 FOR N=1 TO $a0: NEXT N 65 DÉFE <aconoavi 
: =. % 
17& PRINT AT 2,9; "VITESSE DES & 67 BEL 2141191101 
oh Rs DE EEE Aoiieaiti 
LITE INK 4 76 DÉFÉ 2000840881 
1180 ERA, 8T 18,8;"@ ne LENT 71 DEFE 0 
FIAT 18,@;"1 ss". RAPIDE" 78 
1185 TE ShKEVS= THEN GC TO 11# 25 DEFE @ 
1198 IF INKEYS="1" THEN POKE 526 2S BEFS CRNERETE 
LiSS ir INKEY#$="@" THEN POKE 8258 72 DÉFE S10110111 
1268 PRINT AT 18,16;",... OK one" £ : 
3900 FOR N=0 TO 308, NEXT N re POELE rPA0enRe 
2030 FOR mel TO 10: FOR n=0 TO SE 
- ne E n= : 82 DEFB 0,0,0,0@,0,0 
2: PRINT INK n; PAPER 1; AT 16,11; ss" ? 
“GAME OVER": PAUSE 5 ’ be DÉFE 265,265 
2052 NEXT n 87 ; PROG, PRINCIPAL 
64e NEXT BE JL'ESFERENEENENENSE 
IF INKEYS="" THEN GO TO 21@ 
se CALL CLS 


CALL INSCO 
CALL UIES 
GENER ET ENIT 


CLS 
GO TO 1150 
LS : PRINT AT 6,6; "mbde d° 


3516 PRINT 5555" VOUS devez fair 
é face à uné armee d‘'invaders 
sEeux ci sont tres belliqueux 


DEBUT ÉREe DEPL 


+ 
BOB IQ NIIDIO 
9100-40 NP GORE 





ous Heroes des bonbes !" CALL SCROL 
Sdeu PRI 53" Votre Laser vous CRLL ENUBR 
protege. CRUE INUadREs tue ( À 3 CALL BEEP 
MGreér donne 10a en La soucour 191. CALL MTIR 
vous donne 1808 p ts. MI 1! 182 CRLL BOME 
$03e PRINT ,,'" À 9698 La vitesse 125 CALL SQUC 
double ainsi qu'aux prices tabk 164. CALL SCORE 
ESUX.UQous avez à vi 1ASs CALL UITE 
: PRINT _, : : : "BONNE CRANCE. «TT 1x6 JP BESUT 
UNE TOUCHE" 107 
EF INKEY$<:"" THEN GO TO S£& 1608 ; SOUS. PROG, DU JEU 
109 SERRE REEREHRELRESE 
IF INKEY$="" THEN GO TO 394 ira 
RETURN 111 PRINT LED D,8 
DATA S05,142,2,6,9,75,201 112 AND A 
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HRFRBÉBBEE 


UUVEPRPEEE 
DÉSDONMAEU 


BERbEE 
RO OUR 
DIRE CG 


ÉhhphbphBbhbhbbhit 
Ps sf fe fe £a À) C9 JC C0 GO LIN 
AB QI QU 0 JOUR C0 ES 9 0 


ROBE UUNUUUUVUNNNUNENUUNUUÉEERE 
RUURRERREREBREÉGOSOGSSEGCULLDEL 
DeSOQAINIPR ONE OULGNINNRGUESUYIJNA 


RUE 
DUR 
LEE) 


LI 


Le 


LS 


CARAC 


Ld 
LS 


RFFIC 


LE 


L17 


DPEPL 


QI 


27 
[ri] 


[A] nm 


à 


SSSR sets se ss Os 


* DS << 2O7D DAVDE UE VDNO VDOD 


8 


187 


FICIIODNN ODDODENEODIDNSDDDMOMDTS DT 
ga 
(y) 


I 
FRS gffssee 


I 
F 
III 
FFF 


s 


RA,6@ 
HR 


L,2252a8 
2 


L 


ZeONI D 


;, 32 
HE) ,Q 
L 

€ 

NZ, ,L1& 
5 

NZ LIT 


De FR Prrese 
TI OÙ Th  DrIRU 

= He im 

. Re 

D 


- 


Æ 


ZI - 
F 
E 
qi 


[pe] 
dt 


me 
Es © 
a! 


N 
D 


ea} ,A 


D + Un 
OGRTAIbBEMIDES 
UHEMEOMT 
: oo 


390680) 


GO HUE- 
ZS 
… 


DU-DWUITD -DDDTI-DZT-DIDTDITIZSDIZTDE-NLDONITDIT 
D 


OO DT. 


F0 M0 PO EU 10 9 fi PU AIG NU FG FU T0 
NN S 
OI C9 FO ES 10 OA JON 1 2 C9 D 


C0 C5 CO O2 C9 CO 


C3 L3 0 C3 La C9 Co) C9 C9) CD C3 Lo C9 LI 
DUPRÉREEREÉRQ 
VRGDO MAUR CL I0 ES O10 


41 
rh 


DPe 


DPI 


CANON 


CREAN 


MAIS 


M1 
Ma 


SCROL 


{5C1 a 
SSd4 
A,E 
36 
Z DPI 
as 
Z.PP2e 


: CANON 


A, (39880) 


pes 


sea) ,fA 
NON 


st 


LA] 


saRma) 


NSIDD OG-NWy 
20 


(52080) ,nA 
CANON 


4 


ELA 
{S9a@a) 
A 


Fe M Ps 


OB TE 
00 


nDDDTTI-DDDITI-DDDITDI 
FE mr 
D 


Di TE 
OH 
ou 


ZOZzMmMma 
No << TT 
Son MN 

g D 


pa 


De De De LD. 
HID HI Hi ik APTE 
DRE A Di 


DR 


IUDOMI ZSPITETETI 
For 


:148 


2 
+ 
LL 
H 
Le) 


TI 
F 

Ha 

F1] 


+ 


(BC) ,A 
C 


OT 


NZ ,M2 


DITIIT 


NZ ,M1 
HL 


HL ,39002 
CHLI 


A,68 
(39@42) ,A 
INUER 

:1@ 

PI 

,: (39881) 


:50C1 


FT NONUDNENSDUN 
mn w 
5 D 0 
8 GG D 


LE 
CU] 


487 


bb hbRDebEOS 
RE 
SUONJ MARGES DD 


PRRABEA 
IUT 
nr 


d2s 
4. 


Si 


Ssce 
Sd 
S5 


s6 


SsCcSs 


SCd4 
SCROU 
S3 

Ss& 


INIT 
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9842) ,n 


DOS De + Ti 
00H52 
ZT 


kB 0 
& > 
& « 

2 


5N 


os N 
r pu 

S 

8 m 

re 

3 


NODZMDIZUDT-DZODTI 
Ni F 








REFLEXES 


OU Ce OT 0) DEC CN 
DTA SET 
Ps SL CO) ON EST Pa 


INSCO 


BEEP 
BP1L : 


TIR 


ATIR 


5 
_ MTIR 


FTIR 


FPTIR 


S 
-PESCQ 
F7 


3 HE 
:A 
2A 
:R 
:A 


[,HL 
A 


S GP Ce Ge js Lÿe 


S Res fÿs 
FOIS SUR Ur 
nul Le] 
3 


MeDHDDO DAT DnDoDnD 
D 


+ 


Z 
N 
pu 
T 
re 


# 


m 


No 


+: TRQRGE 


nDDDIDPTS -D-D-DNRDZMI 
Ge Le Ce 


D ss. 


M % 
H D “+ 
- 0 H 
0 


SIT Gb 


A 


FD re & 
ON 


DUMDI-DDID-D D-INENENO 
OX 

T 

Fr 

Le] 


:2 

(BC) ,A 

HL 

HL, (39858) 
BC, 18€ 
HL , BC 
(59058) ,HL 
HL 

FTIR 

A, (598534) 


2 
s:1 


HL 
‘PRI 


HL _ 
A,9 

&8C 
{50C) ,A 


(89834) ,n 
(39086) ,A 
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oannongan 
HEHBRPRÈE 
10 CO ON EN Fe C3 FO 


62@ 


AT IR 


EXPLQ 
EX1 


ATT 


ATTI 


INVER 


NEY 
REPL 


BOMBE 


505 
502 


607 


501 


TEOME 


:.A 

: 139838) 
,18@8 

BC 
A8S38) ,H4L 


A0 
(598086: ,nA 
B,1@@ 
A,16 
(254) ,A 
ATT 

A ,@ 

(254) ,A 
ATT 


@ 
(S9901@) ,HL 
HL , (59818) 

s FHL) 

C,A 

HE 

enter rnE 
NZ ,ATTI 
HL, (28675) 
D ,.H 

EL 

B,S 

A, CHL) 

HL. 

AF 

NEY 


6,6 

AF 

(DE) ,A 
BE 

REPL 

ny ARpEn 
rene” 


RES Oe? 
(39032) ,A 
NC.,507 

HL 

H 

PRINT 

HL 

A, (BC) 

8 


Z,507 
A,146 


D-DIDIT 
us We Ds FAT 
7 
H 
(s) 


TI-DVITUIDZ-DI -D- 


788 


FTE 


FTBS 


DESE 


DESB1 


Ssouc 


FSQUC 


SCGRE 


SBI 


SBIi 


MI 
KT 
ST 
Fr 
[=] 


t5902@) ,A 
HL 
RAF 


13 
Z,DESE 


A, @ | 
(RSAeR) ,A 
HL. 

PRINT 

A, (BE) 

HL 

126 

NZ ,DESEBZL 
A,149 
AFFIC 

A ,13 

tEC) ,A 
PRINT 

A9 

{&BC) .R 
HL,59835 
CHL 2 

NC 

A, (392341 
L,A 

Hh,1 

HL 

PRINT 
A,9 

(80) .A 

HL 
HL 
L 
PRINT 
A ,9 : 
t&C) ,A 


GDTI 
és Fr 


que 
34) ,A 
L 


Fo Far 
LE ES 
H US 
OÙ + 0 
D 


mDIDIDT I DIDID- 
ST 


Ge 
2h HU 
D 


D 96 Dh Th 


ur) 


ES4+) ,A 


FI -7 


Ld4. 
DE , 159036) 
536 


s 










Cë CN C6 CC Où 
DÉPPRE 
Soin 


UITE LE A, (39048) 
CP 1 
RET Z 
LD A, (390385) 
CP 4@ 
RET NZ 
D A, (SA838) 
CF 35 
RET NZ 
LD A,17 
LD (38221) ,R 
LD A,1 
LD (3940) ,A 
RET 
FIN POP  HL 
CRLL CLS 
ul GENER 
VIES LD A4 
LD (39@58) ,A 
LD H,22 
LD L,e 
UII LD A,147 
PUSH HL 
CALL AFFIC 
A,:2 
LD (50) ,R 
POP  HL 
INC L 
INC L 
LD AL 
CR & 
JP NZ, VII 
RET 
BUIE LD R, (39650) 
RD f;A 
DEC nf 
DEC A 
LD L,R 
H,22 
CALL PRINT 
A,R 
{SE) ,A 
CALL ZAP 
D A, (39850) 


840@ DEC A 

S41 LD (29056) ,A 
842 JP NZ, FTBS 
645 BASIC POP RC 

&d.4. RET 

645 ZAP LD H,20@ 
846 LD A, (398808) 
847 LD L.A 

848 CALL PRINT 
649 LD E,854 
85e 25 LD DS 

851 Z2 R:,2 

852 OUT (254) ,A 
85Ss CALL Z1 

654 LE A,8 
355 OUT (254) ,A 
856 CALL Z1 

857 DE D 

658 JP NZ ,Ze 
859 DEC E 

860 DEC E 

861 RA,E 

862 LEO (RO) ,A 
863 LD A,E 

864 CP 18 

665 JP NZ ,23 
866 RET 

867 Zi LD H,E 

868 Zd4 DEC H 

569 JP NZ, Z4 
579 RET 

871 ENLVEA LD H,29 
872 LD L,@ 

873 ENVI PUSH HL 

874 CALL PRINT 
875 POP HL 

876 LD A: (BC) 
Sr CP œ = 
578 Z,BASIC 
679 INC L 

EE CP  8é- 

862 JP NZ , ENVI 
883 RET 





Un serpent difficile à charmer que celui de M. Chanaud : il dévore les étoiles 
comme un monstre mythique. Assembler le programme dans une REM de 
773 octets à partir de l'adresse 16516 (Assembleur ARTIC). 


Utilisation du programme : 


On a le droit de refuser un tableau en appuyant sur une des touches Z, X, C, V. 


Dons. bien analyser le tableau proposé avant de foncer car une étoile peut être 
imprenable, ou la sortie peut être obstruée. 

— Ilfaut relâcher la pression sur la touche manœuvrée pour que le prochain 
appui puisse être pris en compte. (Le demi-tour sur place, qui est facile aux 
vitesses lentes, demande une grande dextérité quand ça va vite.…..). 

Au démarrage, on peut partir directement à droite ou à gauche avec les 
touches de direction. Pour partir tout droit, appuyer sur une touche « lettre » 
quelconque (sauf Z, X, C, V). 
Chaque fois que l'on prend une sortie, on bénéficie d’un Bonus égal au nombre 
d'étoiles que contenait le tableau. 

On peut arrêter le programme par une touche shiftée (p. ex. SHIFT 
RUBOUT) lorsque le serpent est en attente de départ. 


1 
1@ 
2 


K 25 


LS 
se 
ER & 





REM 

GOSUE 2690 

GOSUES 16865 

RAEND 

LET HIGH=PEEK 2SO92+2564%PEE 
asSz 


RAND USR 16515 
LET SCORE=PEEKR 2S18E:2S02PE 


25103 


SS CLS 

ER IF SCORE{HIGH THEN GOTQ 28e 
SS POKE 25093,PEEK 25192 

7& POKE SSG93,PEEK 2S1@8 

S LET HIGH=PÉEK 254924+PS64PEE 





T :,15 ER 

85 PRINT AT 18,6 : VOUS BURZ BR 
TTU LE RECORD .",:,"IL EST MAINT 
ENANT DE ";HIGH;" PTS" 
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REFLEXES 





Sa GQT 
188 PRI 
EST ";8&C 


ETAT 
IF 
GGs 


Br 
na 
58, 


REMN 
CLS 
PRIT 
8 PRI 


NT 
1849 PRI 


fa hi ps 
CLR ET 
CSST 
Les] 


FH 
ma 
a 


so PRI 
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138 PRINT AT za ,@;" 
5 REJQUER ‘ 
158, PRINT su 





Q_12@ 

NT AT 15,@;'"UOTRE SCORE 
ni PTS 

a'LE RECORD EST DE *“ 


VOULEZ -VOU 
A LA MEME VITESSE 


THEN GOTQ 14+& 
THEN GOTO 358 


INKEY $="" 
INKEY# <> "N" 
UE 1566 
RÈGLE 
ME 


NT TAE 


GOTQ 





NT LAS 














NT AT 8,19; %/" T 

1068 PRINT “# LÉ “‘SÉRPENT"" SE 
DEPLACE SUR 
1065 PRINT TAB 4;",4" 
1A7@ PRINT " L'ECRAN ET VOUS L 
E OIRIGEZ" 

1075 PRINT TAB 22; "/-" 

1880 PRINT " AUEC LES TOUCHES NH 
JMERIQUES : * 

1985 PRINT ,,"* 1-5 iGAUCHE) ET 
ë-à (DROITE) * 

10S@ PRINT ,,"H LE BUT DU JEU ES 
T DE MANGER“ 
1095 PRINT TAB 6;"," 
11@@ PRINT “ LES ÉTOILES SANS P 
ERCUTER LE“ 
111@ PRINT ,," CADRE, NI LES OB 
STAGLES, NI 
1120, ,PRINT ,," LE CORPS DU SERP 
ENT." 

1150 IF_INKEY$="" THEN GOTO 1150 
1169 CLS 

L185 PRINT TAB 28;",/°" 

1178 PRINT “# QUAND VOUS AUREZ M 
ANGE TOUTES" 

1175 PRINT TAB Gi" 

1168 PRINT “ LES ÉTOILES, UNE 5 
SRTIE BEPAR-" 

Lisû PR “#_ ARITRAR QU“"IL FAU 
BBA EUPAUNTÉR" 

1195 PRINT TAB _ 17: %-" 

18@@ PRINT “ POUR CONTINUER A J 
QUER AVEC _U 

1885 PRINT ,,"  WNOUVERU TABLEAU. 
12@8 PRINT ,," CXI PERMET DE PAS 
SER AU SUIVANT" 

1588 PRINT TAB 18; "-" 

1210 PRINT "# VOUËÉ AUEZ DROIT A 
DEUX FAUSSES" : 

1815 PRINT IAE 28;"-" 

1250 PRINT ‘* MANDEUURES; LA TRO 
ISIEME SERA" 

125@ PRINT .,,"  FATALE: 

1240 PRINT ,,‘# HBIS St “dous soR 
TEZ DEUX FO01I6" 

1245 PRINT THE 26; ".-" 

1258 PRINT “ UOS ERREURS SERONT 

EFFACEES 

1862 17 DINKEV Su" THEN GOTQ 1260 
1510. PRINT AT 2,6; "UITESSE CHOTS 
1325 PRINT AT S,11;"4 s" 

1820 PRINT DE M -> TRES TRES F 
1336 FOR I=1 TO 4 

1340 PRINT ,," . 

1350 NEXT 

1855 PRINT TAB 1,%-" 

1860 PRINT “ À À -> CONFORTABLE 
1878 IF _INKEY$="" THEN GOTO 13876 
1382 LET R#=INKEYS# 

1339 IF R$<"1" OR R$>°9" THEN GO 

3 é 

140@ LET NIV=200xUAL (A4) 

1410 POKE 88110, NIU-2SS#INT (NIV 
ré 

1489 PORE 25111,INT {NIU/2568) 
150@ RETURN | 
SGaa REM 
8018 CLS 
2830 LET x=2 
2020 LET Y=0 
Soda LET A=1 
2050 LET Ag=" 
Ls. [ 
£G60 LET B$=" M.CHANAUD" 
30530 FOR I=1 T0 18 
Sas FOR dei TO à 
3050 LET. X=<+ 
Sdeû IF xX<60 THEN PLOT X,Y 


IF X>=18 THEN UNPLOT X-18,5 


NEXT J 

FOR Jz1 TO 3 

LET Y=Y+A 

10 IF X<68 THEN PLOT X.Y 

IF K>=12 THEN UNPFLOT X-18,5 


D DD D D Ci Ca GC QE 
GORGS CELL 
BOVÉHOQUD-JNNS 
SOS99S6996GE5 

pu 

M 

ei 

C 

2 

Z 


RELACH=Ge0 ZX 
SORTIE=5202 
JEST= 6295 
RIGH= 6204 
TENPON=5SRG 
ALSTT=- 6208 
NBET=  SG28n 
HOMBRE=626E5 
FLAG= Genc 
NCHOC= Ge8D 
SCQRE= G£QE 
NBANIN= Gel 
5212 


> 1= TOUCHE RELACHEE 
:NBRE DE SORTIES 
:NBRE D ORSTACLES. 

3: HIGH-SCORE 

: NUELLE ADRES.TETE 
3: ADR.STOQCK POS.TETE 
ICPTE NBRE E ETOILE 
:HBRE D ETOILES 

: COMPTELIR ALLONGEN : 
3: COHPTE NBRE CHOCS 
à SÛGRE  « 

:NBRE D ANNERUX 
2ADR, ECRPIN LE TETE 
VAL. POUR RBEFLRCGEM 
3 BOUCLES TEMHPORISAT 
: PESUT DU STOCK ANN 
: BÈME ANNEAU 


RECEF 
LAIT BEL 


JR NZ WATT 
LE A,9 

LD (RÉLACHI , A 
CALL RELR 
DASRELRENR 


C 

pen Nz REDCEP 
LB (RéLac 8 
JF CAD 

LE AL, SCORE) 
INC HL 

LE iSCGORE) ,hL 
LD HL, (duc) 
LD DE,G@@1E 
ADD HL,DE 

LE À, CHE: 

CF à 


JR NE PLUS 
LD _A,10 
INC A 

CP 26 

JR C FIN 
LD {HL) 10 
DEC _HL 

JR COMRT 
LD tHLI 8 


RET 
HL, (40801: 


AFSCG 


CONPT 


FIN 

EXIT LE 

LD 6C,86106 

ADD HL,6C 

LE (HL) , 6080 

INC HL 

LO (HL)I ,@8SD 
hL 


INC 

.AaSe 
LE BC, 6828 
ADD AL , BC 
LD IHLI ,& 
RET 
LE HE, CSS) 
LD Dh 
LB E,L 
APE HL,HL 


RLEAR 


AB HL, : DE 


RELA 


CADRE 


FT 
DIE 


HORIZ 


SUITE 


UERTI 


INCR 


SERP 


ETOIL 


ENCET 





ENCOS 


GENER 


ADD HL,HL 
BDD HL,HL 
ADD Lu DE 


INC 
ÉD 4882) ,HL 


PUSH 

LD BC. (4025) 
LD A,FF 

CP C 

POP BC 

RET NZ 

LD f,1 

LD {(RELACHI ,A 
per. 


LD 
Ébéboes , Hi 
LB HE, (4880) 
LD BC;a022 
ADD HL,8C 
Hi. 


LD DE.21 


INC. HE 
BUNZ VERTI 
LD BC,0a 

LD CNEANNI , BC 
LD HL, (4G8C) 
LD BC: G18F 


LD «L 
LD HE, DSTOCK 
LD 5;6A 


LD (HLÿ ,E 
INC HL 
LD CHL) ,D 
INC D 


DEC HL 
LD (CADSTT) ,HL 
POP HL 

LD 5,9 

LD CHLI,88 

ZI HE 


SERP 
LD tALI O6B4. 
LD {A DÉTT) .HL 
LD À, (NOMBRE! 
NE A 


A 
Le Lo en 


EALL GENER 
LD _ €{HLI ,0017 
DEC C 

JR NZ ENCET 


L s 

LD {(NSET) ,f 
LD À, (OBST) 
INC À 

INC A 

LD (0BST:,R 
LE C.,A 

CALL GENER 
LD _(hLi ,8@ 


DEC C 
JR NZ ENCOB 


DK 


CARAC 


CLAU 


APRES 


TESTS 


HORP 
UERP 
HORH 


PLUSZ 
MOINTI 
PLUSS 


HOINS 
BEPLA 


GRIS 


FIL 


: CHGC 


CP @ 

UR NZ GK 

LD A,E 

CP a1 

JR C GENER 
LD HL, (4@8c) 
ADD HL,DE 
«pr A 

CP (HL) 


JR NZ GENER 
ET 


R 

LD BU, iéWa2sSs 

LD D,C 

INC D 

JR Z CARAC 

LD SC, (4825) 

LD A,FE 

CP. C 

JP Z REDEP 

LD _HL, (4925) 
@,H 


Fe DA PRÉCREIH 
UR Z CEPLA 
LD BC, (14025) 
LD A,FF 
DEPLA 
LD F 

OS LE LE 
LD 

LD A F7 

JR NZ APRES 
LD E,G 

JR TESTS 

LD ÀA,EF 

CR C 

JR NZ DEPLA 
LD E,FF 

CRLL REL 

LD BC, tUALDP) 
LD 4,1 


C 
pal 
DNQ 

oO] 


BD 
fé 


1€ NI 
bM PO 
pi] pa] 
TU T 


. 


[e] 
3 
Z 


F . 

(file) 

EH 
Z 
re 


[a] 
OH 
Z 
1) 


+ © 
An 
RC 

L'l 
re 


(T1 
LP] 


+ UP HD GHU ACXI OCT OI 
tFO4+ZE 


DOC 


pl 
Hi LIlLLTie 


: BC 


DovRIES 


ÉDP:, 
PLA 


u 
[ui] 
0 
PR 
y 
© 


LD (UALDP) , BC 
JR BEPLA 

LD 8C,-535S 

LD CUALDP3 ,BC 
CALL RELA 

LD HL, CADETT)I 
LD BC, (UALDP) 
ADD _HL,BC 

LE (TAMPON) , HL 
LD 4,6 

CP (HL3 

JR Z CONT 


RÉDEP 

LD 4,4+23 

CP (HE) 

JR Z MANGE 
JR CONT 

DE ,HL 

HL , NCHOC 
INC (CHL3 
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HANGE 


REFLEXES 


CONT 





DIVERS 


FPE 


re née CFE 
LD Ar iNcHac) 
LD LA 

ABC HL,HL 
ADD HL.6C 

LD (HLT: +148. 
RET 

CALL RFsco 
CALL RELA 
LD HL,NBET 
INC tHL)I 

LD À, £{HL) 

LE 5, 

Le À 4: (NOMBRE) 


SALE Z EXIT 


+5 

LD ÉLRe: ,n 
LD HL, (TAMPON: 
: +61 ; 
CP CÉLT 

UR NZ NUTT 

LD 4, {NSET) 


LD : 

CALL AFSCO 
DUNZ FONUS 
LR HL.SORTIE 
INC iHL} 

LE DA FSORTER 


IDE 


3 
Le) 
D Lei] 


r 
[el 
D 


CORRE DE X 


Cl 
D 


LD BC,6G 

LD A, (SORTIE) 

ADD 4, 

LE C,A 

ABC HL,BC 

LE CHL) , +51 

LD À, (SORTIE? 

CP 2 

ME DRE re 
AC NCHGC 

LD ui 


LD HE, SORTIE 
LD (HLI,0@ 


Ariana ZX#16K) 


Essayez de retrouver le fil d'Ariane 


pour vous sortir de ces labyrinthes très 


bien conçus de F. Hardy que vous 
pourrez ensuite modifier au gré de 
votre imagination. Toutes les 


explications sont dans le programme. 


DÉBDGIUR UE 
2 
m 
a 





bb 
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ERAEEFEHRFREFHEEÉEEEFEEEFESX 
LE ARIANA LE 
FEFHEÉENRESEERESEFÉEEEXTE 
++ FREDDY HARDY xx 
ÉLREERFELSEEEEREETELEÉELEEXX 
25-56-1985 A ETAULIERS 


LIGNE 11@: 11@ LET ALER 


ELANDC 


HUTT 


QUEUE 


LABEL 


TEMPO 


=89009 
0 


; 21 
EXPLO 


INTHE 
2e 


LD HL,t4Bbi) 
NC _HL 


NC HE 

BUNT BLANC 
RET 

LD BC: (ADETTI 


LD HL, (TAMPON) 
LD (ADETT)I ,HL 
FR AL 4ae e 


LE (BI 
LD ÉLCAG) 
B 9° 


Le) 
JR Z'QUEUE 
LD HE  NAANAD 


INC 

LD NEANN) ;HL 
LD HL, (ADSTT 1 
INC HL 


INC HE 

LD (ADSTTJ)J ,HL 
LD HL,FLAG 
BEC (HE) 

JP LABEL 

LD 26 T0 


D 

LD (6È 

LD AL , CNBANN) 
ADD HE, HL 

LD 6,H 

Le 

LD HL : BSTOR 
FE se” :PSTOCK 


LABEL 

LD HL, (ARSTT 

LD EC, TAMPON) 
CHI à G 


LD 

ENC HD. 

LD (tHL 

LD BC LRETARD 
CALL BREL 

DEC BC 

LD À,58 

GR CG. 

JR NZ TEMPO 
JP CLAU 








+ (INT CRNDENOMBRE RE LABYRIS 
FR 


REtH 
RE 
PRINT TAB 15; "ARIANA 


PRINT AT 3,8; "UQOUS ET 
RATEUR PERDU 


“VOUS ETES UN 
DANS UN LABYR 
INEXTBRIQUABGLE" 
PAUSE 288 











25 PRINT 7020 FOR F= 
Bd PRINT "UOUS ME MERREZ LE PL 7836 PRINT 
SN QUE QUELQUES INSTANTE." 7040 PORE x 
2É FAUSE £@a 7050 FÜR 0 
56 FRINT 7060 NEXT G 
27 PRINT ‘FOUR VOUS DIRIGER LE 7870 PRINT 
5 LA SORTIEMANIPULEZ:" 2860 ROKE x 
2É PRINT 7 = 
. 89 PRINT "LA TOUCHE ‘“‘@"": HAUT 2088 NEXT 8 
3 PRINT "LA TOUCHE “"a"":B8B95" 7698 CLS 
492 PRINT LA TOUCHE "0": GADC 7402 BRINT "DESIREZ VOUS RECOMME 
se | à 
38 PRINT "LA TOUCHE ‘P'": DROI 7118 INPUT RS 
TFée pause ego 2180 PRINT , "AU REUDTRS one 
tel = 715 “ aa 
S4 PRINT 73: ATTENTION AUX ME 2140 PAUSE éée : 
ris Pod 
5 PAUSE 8688 7SQQ REM Max AE SN de SE A A de de de de dr 
SE PRINT ,:: "BONNE CHANCE.. Lx GAÂGNE res 
57 pau 4e NE LiDE LIT LOL DLLLLELEES 
5& CLS : = 
.SS PRINT CHIYJEAU DE DIFFICULTE HE TRE CR AT 11,6; "VOUS AVEZ GA 
ruée BEENT “11L'"'ORCINATEUR EST 2526 POKE E1+1,184 
HS LE G 3 ,, 7 “ = 
di PRINT "SINIVEAU MOYEN‘ 7540 NEXT G 
42 PRINT _‘5)L'""CORDINATEUR EST 7550 T 1 REREPERNER 
INTRAITABLE",,,,,::"U0TRE CHOIX Ù 
43 INPUT D 
dd CL 
4S IF P<1i OR D:5 THEN GOTO 59 = 
47 LET ERREUR=O 7599 CLS 
48 BRINT UOUS ETES LE "xt" ASSL PRINT "DESIREZ VOUS RECOMME 
LÉS MINES SONT LES muguet"? 5292 INPUT Ré ë 
43 PAUSE 509 7535 IF R$="OUI" THEN GOTC SE é 
SO PRINT "ATTENTION,L'"'ECRAN LU 7594 PRINT ,,"AU REVOIR..." Ê 
a DEVENIR GRIS DURANT QUELQUE FS9S PAUSE 4600 
5 CES..." 7598 LIST 
Se PAUSE 359 SOUQ REM #EHKREXRERÉEREEREEÉÉEELESE 
Lo ÊLS | ££ LABYRINTHE NO:1 ++ 


50e 


FAST 

59 CET E1=FEER 16596+2S6xPEEK 
3 | 

119 LET ALEA=G@GG+CTMT (RND+ZS) 1 


LÉ 





REXEL EEXETEEXLIELEXEXESX 
NT “ESS He 


+ 


Lo 





4041 _-xXû 


KX=E1+ sea 


[a] 


15 GOSUE ALER Le 
30 FOR F=û TO 724 bot 
25 IF PEEK (E1+F) =0 AND RND+10 'É 
D<D THEN PORE (Él+FI,25 = E 
SO HEXT F ÊQVE 
35 SLOU = s 
LA . 
ÈS LET X=E1 sos 
50 FOR F=0 TO 81 
SS_IF PEEK (X+F)=128 THEN POKE 
K+Fi ,82 
8586 IF PEEK (X+F)=20 THEN POKE 
K+F) ,100 
(840, TÉLPEEK (X4F) 228 THEN POKE 
, # 
4S NEXT F 
50 LET X=%X+85 
55 IF PEEK X<r128 THEN GOTO 26 
go 
SL 
LE 
ÏE 
7 
À 


a 
HG 


a 


= 28 
="g" THEN GOTO 8600 
='"'R" THEN GOTO 6@05 
s"'Q" THEN GOTO 6010 
IF _Ié="P" THEN GOTO 6015 


2 

T 

I KEY # 
Êco RHEN GOTO 
Éd 

5 


HHHHT 
AINAM 


IF. PEER (X+A)=56 THEN GOTO 
IF PEEK (X+A:<:109 THEN GOT 


GHPHPERBPPREREONS GMBOGAHGO ONU OLANUMDONRIMIMUIN DEIUXM+IU- DURE EEE D 


GROUGUBMDE-OGOLOANANNSULE-GOSEE-QU-QLONDOG-IQUM 
SONOUNGNIQNUIGSHOG-EOBNREONI-EOBSOOSOU- LASGNS ONG -M+MNONGQUC 

Lt] 

A 

ue 

Oo 

ou 

o 

Q 





5 
5 
8 
8 
£ 
7 
6 
0 28 
ë POKE X,100 
& LET X=X4+A 
5 POKRE X,61 8 
6 GOTO 289 
& FOR F=i TO 10 
5 POKE X.@ 
8 POKE X:189 
& PORKE x,64 
& NEXT. F 
6 LET _ERREUR-ERREUR +1 E 
£ IF PEÉEK (X+A)=275 THEN GOTO a 
= GOTO 280 
6 LET ERREUR<ERREUR +4 E 
6 GOTO 696 
7 REH Hé | pÉBD nas EE 
++ 
ERÉREREERÉTÉÉSEÉEEERÉEELXSE FE £ 
7495 CLS 
7810 GOSUB ALEA E# 
7ALS PORE E1l+5768,0 
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S@4@ PRINT 
: 8@4T PRINT 
: 8042 PRINT 
: 8048 PRINT 
: ÉQd4 PRINT 
! Sa4s PRINT 
: BG4E PRINT 

so Prêvr 
: EN 












DIVERS 


Président 
(ZX 81 16 K) 


Un jeu de politique-fiction complet : 


le destin du pays est entre vos mains ; 


jouez-bien ! tant de personnes 


comptent sur vous pour de pas mourir 


de misère (J.P. Bernardi) 


CBREN B.J.P. 
18 CLS FPS 


15 CLERR 
28 REM &xx#E++# PRESIDENT X£#F5kx 


&S SLDOW 
sû BRINT a 


SES PRINT 
A PRINT TAE 4:"2£erxz EU DU PRE 
SIDENT 443 


+ 
S8 PRINT “(C) BERNARDI J.P. { 


55 PRINT 

60 PRINT ‘once 

Sà PRINT RS ES SG GR RE 
s6ÉSsRSsaRss" 

S& PRINT TOUTE INTERPREFATION 
FOLITIQUE BE CE JELI NE PEUT 


ÊTRE QUE LE RESULTAT DE L° TELUCU 

BRATION D'"UN ESPRIT TORDU", C 

ECI EST SEULEMENT LE FRUIT ÊÉ 
L''"'IMAGINAT ION. * 


98 PRINT PERÉFESESERÉHEEHRRHHE 
sr$ésRÈRSSSS 


108 BOSUE VAL "1655" 
165 PRINT “UOUS UENEZ D'"'ETRE E 


ni 
ST PAS NOTRE PROBLEME. 
de PRINT 
15 PRINT sos QUELQUES DONNE 
ES POUR VOUS IDER A FAIRE AUAN 
CER ÉBUrELS. RCFUBLLEMENT RU BORD 


T 
RINT “+ CHAQUE HABITANT DE 
Fe XB@FR PAR dre 
15@ PRINT ‘+. GETTES._ UV 
TENNENT BES.TAXES INDUSTRIELLES, 
DU dus ne ME, DE LA ES CER 
ERLES DE. LA TRANSFORMAT TON DE 
0oS cHAHPS EN ZONES INPUSTRIELL 


î3s PRINT ‘+ CHAQUE ANNEE VOUS 





46 - ORDI-5 n° 10 Décembre 1984 


D Sr 


90900 SAVE 
3910 RUN 








RERART ISSEZ LE BURSET DU PAYS EM 
HE LA LUTT ANT TI-POLLEIT TON ,LE. 

RSIT L'ÉDUCATION ÊF L' 
TABRICULTURE. ." 


148 GOSUE UAL "1655" 
14S PRINT "+ L'''EEUCATION C 
PRES Eee “UN HRBITANT COUTE 10F 


158 PRINT 
155 LET N5=7 | 
169 PRINT “+ UNE, LUTTE AN 
TI-POLUFION ÉFFICACE COUTE @.44F 
R PAR UNITE DE POLLUTION. 
165 PRINT 
178 PRINT “UOUS NE POUUEZ ENTRE 
U UN BUDGET CECI 


P 
188 PRINT "SANS ROUPRES UQUS DE 
COURAGER ,JE TIENS À LOUS AUERTIR 
LICUN DES PRESIDENT 
S VOUS AYANT PRRECEDE NCA FERMIMH 
E SON MANDAT, 
185 PRINT 
198 GOSUB VAL "1655" 
195 LET Nd4z=7 
= PRINT 


22S LET M=OSES+INT (RND&6ES) 
23@ LET P=INT (4SG+RAND+20) 
LET R@=0@ | 


240 LET SU=8 
B4S LET K=@ 
350 LET L=UnL “2rs" 


mi 
" 
G 
LE 
LI 
| 
* 
a 


BH GOR 
EVSTTUNL 


na 

ui 

Lo] 

r 

m 

Li 
QUI im 
HAE GOGO 


< NT _iP#5Si 
38S BOT URL "315" 
318 PRINT "ENCORE "i:NS; " ANS À 













315 PRINT 

Se LET LI=INT (RND2S +208) 

32S LET LO=INT (RND+18 +95) 

330 LET R-9 

335 PRINT 

348 PRINT "UQUS AUE 

S4S PRINT M;" FR DE ZsUDGET. 

350 PRINT Pi" HABITANTS." 

,S3SS IF NOT U THEN GOTO UAL “365 


eee PRINT Ki" TRAURILLEURS IMMI 
S," 

S6S PRINT L;'" HECTARES." 

S7A XF NOT SU THEN GOTO ‘vAL LT 


re PRINT SU;" FR PLANQUES EN S 


re ÉRINT 

38 IN 5 DÉSIREZ VOUS R 
APRTRIER RES CAPITAUX DE SUISSE 
3930 INPUT 0% 

395 CLS 

Ce PT O$(15<:"0O" THEN GOTO VAL 


+0S PRINT "MONTANT DU TRANSFERT 


in INPUT SUT 
&iS IF SUT>:SU THEN GOTOQ UAL ‘41 


deg LET SU=SU-SUT 
42S LET M=M+SUT 


CLS 
43S GOSUB VAL ‘"1S89" 
d4+0@- Does 
44S PRINT "CETTE RUNEE Re , INDU 
STRIELS VOUS OFFRENT _" FR 
FAR HECTARES" ," ET LES” SLANTAT 10 
NS COUTENT #,L21;" FR PAR HECTARE 


4452 IF NOT S1 THEN GOTO VAL ‘46 

&SS PRINT "LE DEC BE POLLUTI 

ON MESURE ET DE S1i:" UNITES MK 
NT 

46S PRINT “ COMBIEN D'""HECTARES 

rss UOUS VENDRE AUX INDUSTRI 


478 INPUT La 
475 IF Le<=Q THEN GOTO UAL “479 


480 IF LA<L-1ES THEN GOTO URL Le 


CLS 
+8, PS nee “ALLONS, UOUS N'"'"AUEZ 
QUE. ES; HECTARES DE TERRE 
DISPONTELES: : 
,+9S IF X1<>S THEN SOTC VAL “555 


SOS PRINT "LES INDUSTRIELS NE 5 
ONT PAS DISPOSES À ACHETER D 
FORET DU FAIT DES COUTS 
GOSUE UAL "1885". 
LET Xi=1 


S1S GOTO VAL _"S35S" 
Se LET Po PS ei 


536 LET X9-= SINT (4 à + (RES -L) 3 


LET =@ 
S9S GOSUE VAL ‘1S50" 


SG PRINT "COMBIEN DE FRANCS VO 
ULEZ UOUS DISTRIBUER A VOS 
HABITANTS 7" 


TT MZ 
srr IF MI>xM THEN GOSUB UAL ‘150 


Aero M1<G OR M1>3M THEN GOTO LU 
SS0 LET M=INT (M-M1 
,38S IF NOT M THEN éoro VAL “755 


590 GOSUB VAL “1580" 
59S PRINT _"COMBIEN B'"HECTARES 
UQULEZ UOUS PLANTER 7° 
GSO& INPUT LS 
S2S IF LS<=@ THEN GOTQO UAL ‘"60& 


G19 IF LS<=P&S THEN GOTO VAL "6& 


G15 GOSUB UAL ‘"158s" 

62@ PRINT "CHAGUE HABITENT NE PF 

EUT PLANTER QUE 2 HECTARES, 

625 GOTO UAL ‘660 

déces IF LS<=L-1ES THEN GOTO UAL 
ESS PRINT “"UQOUS N'"'AUEZ QUE ‘; 
1ES;", HECTARES DE TERRES BULT EU 


ABL LES. 

640 éoTo URL "668" 

G4S LET MA4=INT {LS#L1) 

SSO IF Mé<=M THEN GOTO URL ‘“68& 


GSS GUSUS VAL "1380" 

560 PRINT "UOTRE BUDGET UQUS LI 
AITE À _"3INT _ (M/L13;" HECTARES D 
E_PLANTATIONS. 

665 PRINT "LA POPULATION PEUT T 
RAURILLER “";P+482;" HECTARES ET LA 
SURFACE" 

678 PRINT "DISPONIBLE EST DE ‘; 


L-2ES; " HECTARES." 
G7S GOTO VAL "Sgs" 
GG LET M=INT (M-Mad4) 
,88S IF NOT M THEN GOTO VAL “755 


598 GOSUS UAL “1580 
695 PRINT “COMBIEN VOULEZ VOUS 
DEPENSER POUR L'"EDUCATION +7 


7@S INPUT Me 
. r@S JF Me ; =@ OR M&>M THEN GOSUE 
vas Tone 
71 M2 <=0 OR M2>M THEN GOTO 
VAL? “#9a! 


215 LET MS=INT (M-M2) 
.7e8 IF NOT NH THEN GOTO UAL ‘755 


725 GOSUB UAL "1350" 
+368 PRANE "“QUEL BUDGET ACCORDEZ 
Vous A LUTTE ANTI-POLLUT ION 


735 INPUT MS 

740 1F_MS<=@ OR MS>M THEN GOSUE 
VAL "1385" 

74S IF mo ren OR MS>M THEN GOTO 


750 LÉ MS=INT (M-M53) 
755 CLS 


S 
768 LET D@-= 
765 LET E2-M82/P ÿ 
778 LET D2=INT (P-M1/-1E2) 
775 IF B2<=@ THEN GOTQO VAL "sg 


788 LET Da-=De 

78S _IF DS8=1 THEN PRINT De; HAE 
ITANT _EST MORT DE FAI 

788 PRINT Dei HABITANYÉ SONT N 

ji" oO 

QORTS DE FAIM" ces 
NOT RTS DS=INT (S1/1E5+(.1+.42R 
.38S IF DS<=@ THEN GOTD UAL “525 


818 IF DS=1 THEN PRINT DS;:" HAE 
SSD EST MORT FAR EXCES BE POLL 


815 IF DS21 THEN PRINT DS;" HAE 
ITANTS SONT MORTS PAR EXCES DE P 
OLLUTION. " 

8208 LET DG-b8+D3 
.88S IF D@c=6 TREN GOTO LAL ‘925 


LET F=D@Gx 


832 : 
S3S PRINT, NC ÊTES OBLIGER DE Ë 


DEPENSER "; 

S48 IF Da=1 FHENT PRINT ;°" POUR 
L'"ENTERRER" ; 

84S IF DG>1 THEN PRINT ;°* POUR 
LES ENTERRER" 

350 GOSUE VAL "16595" 


R 
Ses IF RG:=58 THEN GOSUEB VAL "TI 
S4s" 


E 
are: IF R@>=1E2 THEN GOSUB URL 
86 


°87s. IF R@>=135S THEN GOSUB VAL 
ra 
Cl LET M=INT iM-F) 

IF M>=@ THEN GOTO UAL “925 
890 PRINT "“‘UOTRE FAIBLE BUDGET 
VOUS OBLIGE À VENDRE DU TERRAIN. 


SSGS LET T@=-INT (M°L@) +1 
38@ LET L=t- 


TA É 
_S@S IF L>=1ES THEN G60TO LAL ‘oz Ë 
Bt D 


S1@ FRINT "“UOUS N'"'AUEZ PAS ASS 
EZ DE TERRAIN" 

S15 GOTO UAL “1460 

920 LET M=M+(TGxL@) 

92S IF DO>2ER THEN SOTO URL ‘14 


a3S LET P=P-D@ 
SSS LET D1i=b1-D@ 


S4G IF Di<=@ THEN GOSUB UAL ‘14 À 


3S4S IF D2<=2 THEN GOTO VAL "OSS5 


95@ IF M>SER2 THEN GOSUB VAL “15 E 
955 IF L2+<=5 THEN GOTO UAL "1E5.} 


ee LET T@=INT ((La+.2+L2 #RND) ; 
S6S IF NOT WU THEN GOTO VAL ‘"99@ 


97@ LET TO=INT (TG4+. LEU) 
975 IF T@ri THEN GOTO VAL “oaw" 


RINT T@," TRAUAILLEUR IMMI Ë 


958 _P 
GRE EST ARRIVE." 
SSS GOTO UAL “995" 


SGG _ PRINT T@;" TRAVAILLEURS 1H 


IGRES. SONT RRRIUES.. * 
395 LET U=U+TO 


1aga LET T@=INT Root re 18-05, à 


S-D8R-Sr+.75S%{(1+R 33 : 
2e IF NOT TO THEN GOTGS VAL “1G 
5s" 

@1@ IF T@G=1 THEN PRINT ABS. Fes 

*RABITANTe 


181S IF S1:=SE2 OR Mac=Ps18 THEN i 


GOFO VAL “1050 
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1820 IF TR=1 THEN PRINT "EST VEN 
U S"“"2INSTALLER" 
18838 IF S1:=SE8 OR Ma<=-Ps31Q@ THEN 
GOTO URL “10508" 
Pt EE Si “SONT VENUS S'"'"INSTAL 


+T@ 
184S GOTO URL “186@" 
RINT 


I 
1050 IF TO=1 THEN PRINT T8;" HAS 
NT A QUITTE LE PAYS. 


RINT 

IF T@>1 THEN PRINT T@;* HAE 
ONT QUITTES. LE PAYS." 

ET P2=P-F0 

1065 IF P<U THEN GOTO VAL "1498" 


LET T9= 
sors IF LIBRES THEN GOTO UAL "116 


188Q LET. TO=INT (S1/1ES+4LS33 
108S XF Fet-LS THEN -GOFO URL "19 


LET F@=LS 
See IF NOT T@ THEN GOTO VAL “17 
1188 ER :LS:;" HECTA 


1105 PRINT "UQUS AVEZ RECOLTE *; 
LS3-TO;" HECTARES. 
FLN tF NOT TO THEN GOTO UAL “14 


12 INT “(A CAUSE DE L'""AUGME 
ATÉDTON DE LA POLLUTION) * 

LET Xe=XxX2+1 
1158 LET TI=INT ((S9+RND+20) # (1+ 
AD BE Nr ceux 
11538 PRINT “CEUX CI VOUS, RARPPORT 
ENT _“,:2I (TIELE TON) à FR 
1155 LET M=M+INT trie (LS TO) à 
1146 LET MS=INT (T3-T12) 
114S LET EO-E 
1150 IF E2<=-10 THEN GOTO VAL "14 


1155 LET E2-10 


1178 IF TO<2 THEN GOTO UAL “1505 
1175 IF T@R<=26 THEN GOTQO URL “11 


1188 LET Te-26 : 
1185 LET TO=INT {TOESEZE( SAHAGE 


2198 LET T1=S1-/3ES 
LA19S IF Ti<=2 THEN GOTO VAL “i28 


1208 LET T1i-= 
18asS LET Tistixre 
1219 LET M=M4+INT Ne 


121S PRINT "LE TOURIS Fa 

1880 IF INT ire LTir <oHS THEN GOT 
5 URL “"129e&" 

ee IF S1<=59 THEN GOTO UAL ‘“1Zz 


1esa ANT “ u EN NETTE BIMINUTZ 
ON CAR 


18358 LET T2=INT (RNDaæS+1) 

124@ GOTO VAL “12S5+12:10" 

124S PRINT "DE NOMBREUX POISSONS 
SONT MORTS 

1258 e0T0 Val “1290" 

12SS PRINT LES PETIFS OISEAUX, C 

HANTENT DE MOINS EN MOINS ,", 


1865 PRINT _“"L'""EAU DES. SAINS DES 
CURISTES EST POLUEE as 

1270 GOTO _UA 

127S PRINT "LES MAUVAISES SPEURE 
DECOURAGENT LES ESTIVANTS , 
1288 GOTO LAL _“1e9g" 

128S PRINT "LES HOTELS SONT NOIR 
CIS PAR LES FUMEES DES USINES ,° 


1299 PRINT “UOUS AR RAPPORTE *, I 

NT trT@-Tili;" FR. 

1295 PRINT 

1508 LET 59-58 

1508 LET ES TBES-L) £ (2ES-LI -MS/. 

13910 IF NOT X9 THEN GOFTO URL “15 

1315 INT * LES TAXES INDUST 

Nr VOUS RAPPORTENT "as sX9;" 
M=M+X9 

28es EF 52520 THEN GOTO VAL “155 

1338 LET S1i=INT (51+52/21 

1835 2IF 51-50 THEN GOTO UAL “15 


1=59 
1345 GOTO URL “1369 
1350 LET SIL=INT (S1+52) 
13SS LET Se {SB+S52/1607) 


LET =NS — 
1565 EOSUR VAL F16ss" 
13768 EF KROF NS THEN GOTO UAL "15 


1575 LE a UAL “S18" 
1385 PRINT “IL VOUS RESTE “;:H;" 


13599 PRINT 
1595 RETURN 


n° 10 Décembre 1984 


1469 PRINT “UOUS AUEZ ETE RENUER 
SE ET _JETE BANS LE PLUS HUMIDE & 
ES CACHOTS...," 

1485 ES “1738" 


INT B&;" PERSONNES SONT MH 
PÉRAUES ANNEE A CAUSE BE VOS 


GRAU 
1428 PRINT "NON SEDLEMENT VOUS A 
RENVERSE MAIS DE PLU 


Es 

1429 LET T@=INT (RNDES) 25 

1450 GOTO VAL "“1405+00ET8" 

1455 PRINT “ON UOUS À ÉCORCHE UI 


2144 GOTO VAL “1720" 
1445 PRINT “UQUS AUEZ DROIT AU G 


1458 LT URL “17539 
1455 PRINT "UOUS ETES L'"ENNEMI 


PUBLIQUE NUMERO Lu... 
1468 GOTO UAL “173@" 
1465 PRI 


E DEPUIS VOTRE ELECTION." 
1475 PRINT 

1480 PRINT "LES MALHEUREUX SURUT 
VUANTS NE PENSENT PLUS QU""A LV 
res FRRERER POUR VOUS ETRIPER.'" 
214.90 BRENT 

149S PRINT _“ LES TRUE REURS Im 
HTGRES SONT EN MAJORIT 

1599 PRINT "“ILS SE SONT REUOLTES 
ET _ONT PRIS LE POUVOIR. 

15@S GOSUB VAL “1655" 

1512 GOTO VAL “14@@" 

1515 PRINT 

1520 PRINT ‘"UOUS ALVEZ ENCORE ASS 
EZ D''"'ARGENT EN CAISSE ET POURTH 
NT ns PERSONNES SONT MORT 
ES DE MISE 

1585 PRINT 


See, PRINT NE VOUS ETONNEZ PAS 


SI ® LA FOPLLATION SE SOULELVE 
ÉRÉNÉ D'''ASSAUT UOTRE PALAIS 
ÉT VOUS ACCULE AU SUICIDE..." 
15395 GCSUR VAL "1655" 

31548 RETURN 

1545 PRINT 

1550 PRINT “FELICITATION *“ 

1555 PRINT 


1568 PRINT "UOUS AUEZ CORRECTEME 
QE Renan VOTRE MANDAT DE ‘“"; Nd4; 


1565 PRINT ; 
157@ PRINT * D 

COPERE BES CAPITAUX EN SUISSE 7 
1575 INPUT Y# 

1560 CLS 

1S8S IF Y#(1)3 <>" 0" THEN GOTO VAL 
“1622 


1598 GOSUE VAL “1S350" 
1 PRINT 
1698 PRINT “HONTANT DU TRANSFERT 


1685 INPUT SUT 
1610 IF SUT>M THEN GOTO UAL "168 


1815 LET SU=SU+SUT 
1628 LE M=M-SUT 


1639 PRINT “ DESIREZ VOUS UOUS 
EPRESENTER RUX PROCHAINES 
ELECTIONS?" 

1635 LHPUE Éd 

1548 LET =Nd. ù 
esse vtr +>"O" THEN GOTOQ UAL 


1658 GOTO VAL ‘"27sS 
os PRINT TAB faste PRESSEZ NEL 


1660 ENPUT Y# 
CLS 
167@ RL HAN 
1688 IF P:6723M THEN GOTO VAL “17 
1685 PRINT _‘"UOUS AHRHRE.. pre JOUR 


T 
Eu; FR." 


RE SUCCESSEUR N°" 
Le APRRECIE L'ETAT DES FINAN 


17198 PRINT "IL VOUS À ARRETE AUR 


NT QUE VOUS NE GUITTIEZ LE PAYS. 


1715 PRINT "“UQOUS AUEZ ETE TORTUR 
E ET AUEZ AUQUE LE NUMERO DE UOT 
RE COMPTE EN SUISSE 


2726 PRINT "UOTRE CAPAURE A FAIT 
LA JOIE DES CROCODILES..." 

1725 PRINT 

175@ PRINT “MORALITE : LE CRIME 
NÉ PAIE PLUS." 

1735 PRI 

1748 PRINT 

1745 PRINT * EST DE PLUS EN À 
PLUS POINTU D*“EXPLOITER SES 5EM | 
BLABLES . ‘ 
1758 PR 


ESIREZ UQUS TRE À 





1755 GOSUB VAL "1655" 

1F76Q PRINT TAB S;"FIN DE JEU” 
ROSES PEU “UOULEZ UOUS REJOUER? 
177 INPUT US 

1775 Pa CODE U$=52 THEN RUN 

176@ CL 

1785 BRENT AT 16,12; “AU REVOIR" 


















tt 
1805 FOR I=1i TO 19 
1810 PRINT AT 14,4; "UERIFIEZ VOS 


CHIFFRES" 
PRINT AT 14,4, "Fes 












































I 
"UOS MINISTRES, un ET 
UQUS MEME DEURIEZ APFRENDRE A 
A COMPTER unes 
1655 GOSUB UAL ‘1655 


RN 
1545 PRINT "UN RE DE REUQLTE 
A ECLATE DANS LE NORD DU PA 


1869 IF Kz=1 THEN PRINT "LA REUOL 
TE DEBUTE AUSSI DANS LE SUD , VU 
QTRE SITUATION DEUIENT CRITIG 


UE 

1865 RETURN 

187@ IF K=82 THEN PRINT "LES MAGU 
IS SE DELVELLOPENT BE JOUR EN 
JOUR,RIDES PAR DES PAYS VOISINS. 


187S IF K=1 THEN PRINT * LF 
SITUATION LOUS FORCE A INSTALLE 
PR IN Hébert DU MAINT IEri 
1586 IF K>1 THEN PRINT * LA 
SITUATION VOUS OBLIGE À RENFORC 
SRDBE. SERVICE DU MAINTIEN DE L'“" 
1895 GOSUER VAL _“1655" 

NT Has "OUEL BUBGET LUI DONN 
1895 PRINT 

Ian GOSUB VAL "1585" 


Vous vous êtes aventurés dans une 


grotte et vous voilà nez-à-nez avec des 


39056 PEEK ni NE THEN RUN 


Aou IF MXSES THEN GOSUR UAL “19 


1919 INPUT MS 

1IS1S 1F MS<=0 OR MS>:M THEN GOSUE 
VAL pos - 
1926 IF MS< OR MS>M THEN GOTO 
UAL 1910" 

1925 LET M=INT (M-M5) 

1930 CLS 

193S RETURN 

1340 ie VAL "1585" 

194S PRI L;'" RECTARES " 

1558 PRINT “0oSs TROP FAIBLES En 
ANCES VOUS,  OBLIGENT À VENDRE 

U TERRAIN. * 

1955 PRINT UNE MULT INATIONALE UV 
OUDRRIT mt "INSTALLER,ELLE PH 

END _L'""HECT à “3 LG-5;" FR. CO 
HBIEN LUI EN EDEZ 2 

19690 INPUT LS 

196S IF LS<99 THEN GOTD UAL ‘198 


297@ LET L=L-i5S 

197S LET M=INT M+tLS#x(LO-8&7 7 
1980 RETURN 

1985 PRINT _"DESOLE ELLE NE PEL 
&""INSTALLER VALABELEMENT SUR 
MOINS DE 18@ HECTRRES. 

199 GOTO 19360 

199S STOP 

36988 CLERR 

3618 LET M=PEEK 165369 

93026 POKE 16389,76 

Ssase CLS 

9948 REM SAVE “PRESIDENE" 
3341 RAND USR S646@G 

3642 En S94 PRESIDENT 


S9069 POKE 16589, 

3478 STOP 

2898 CLS 

3391 PRINT PEEK 16586 +2S6+PEEK 

GSS0-PEEK 16415; " DU 

és PRINT PÉEK 16419+256+%PEEK 2 
z 
sa 


3993 PRINT PEEK 16896 +2S6#PEEK 
65397-16509; ° LONG . PROG « 

SG999 PRINT PEEK 168358+256 +*PEEK 
SE —PEEK 16400-2SGEPEEK 16401; " 








centaines de mygales assoiffées de sang (!). Dirigez-vous dans la grotte sans 
toucher les parois avec les touches 1 et 2 et tirez avec la touche O: 
pour tuer la mygale géante vous devez la blesser 6 fois ; courage. (Eric Buzin) 


SESOSUE 15G6 

1 LET T=0 

8 PRINT AT 21,0; 
THEN GOTO 5 












(RND +71 


y 
12 LET ÆINT (RND+2a) 
14. SEROLL 
28 PRINT AT 21,1G4U;° 
SO PRINT AT 21;:26+U: se 
Se PRINT AT 9,Y;" "Ss TRE Yi" 


MER IF Y=10 OR Y=1S THEN GOTO & 


75 IF_INKEYÿ$="@" THEN GOTO 255% 
g= 82. LET Y=Y-CINKEY $=" 13 +(INKEY 
ga PRINT AT A,B;"æ" 
2420 IF A=18 AND È+ THEN GOTO & 


120 LET A=A-1 

159 IF _A=8 THEN GOTO 506 

140 GOTO 16 . 

309 PRINT AT 1@,Y+1: "4%" 

.285 PRINT AT 21; Yô720nnME OUER+ 





219 PRINT AT 9,168, "SCORE 59 
215 IF INKEYS="" THEN GOTO" ais 
z20 RUN 

ee FOR N=11 TO 21. 


260 RTE AT ON, +1 
a?9 IF =A AND 'Y+1= 5 * THEN GOTO 


275 PRINT AT N,Y+#+3:% 
TN 


5: "EE" 
B: “ae 
B:"“h 
LR 


356 IF T=15 THEN GOUTCG 400 

S4R LET S=S+INT {RND+x1@@) 

S4S PRINT AT 21,0: "PTE:";S 
359 GOTO “ 





445 PRINT AT _18,vV;"Uu" 
458 IF Z=21 THEN 6oTo 450 
468 rc sus 18@.%; 


GOTO _4S 
47s PRINT AT 3@,%:" " 
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4S@ LET AX=18 

498 LET BY=14 2 , 
508 PRINT AT _AX, LPS FRE EY-— 
Li TAB BY-1:; “iTAS BY- 
HS 

619 PRINT AT SevV-15" CiTAB Y-1 
550 LET AX=AXx- 

546 LET BY=14+INT _ {RND #2) 


N GOTO S58@ 
KEY $="0" THEN GOTO 6GE 
HEET CE ENREv garde) LR INRES 


VS TRE vi". 
N=AX ANR Y= BY OR Y=BY +3 
cu Né The OR S=6Y+3) THEN LET 2Z 
=Z+ 

650 IF Z=25 THEN LET S-=5x2e 

G4@ IF Z=26 THEN GOTO 1800 
ee IF N=hX AND Y=BY THEN GOTQ 


678 NEXT 

76 PRINT CAT 16,5; zZ-20 

712 GOTO Der 

S@R LET 20 À 

S@2 LET AX 22 

Sas IE _V=@ THEN GOTO 2@@ 

310 PRINT “ATTENTION UQUS N AVE 


Fr PLUS QUE ‘“i{iU;® UIES..,." 

Sau PRINT "L.BPRAIGNEE UOUS À MU 
R : 14 VIE. ARPRUYEZ SUR ZERO ROU 
R_CONT INUER . * 

S@ IF INKEY#<>:"G" TREN GOTO 5% 
683S FAST 

646 CLS 


NT AT UT TIRE OT 
os FAOTRE 7 iTAB 10; 7 
2030 PRINT AT 1,8; "VICTOIRE TOTA 





ser IF INKEY$="0" THEN GOTO 115 
‘1848 GOTO 19868 

1050 LET A=21 

1869 LET S=S+50080 

1108 FAST 

1185 CLS 

111 LET A=21 

1150 LET U=U+1 

1168 SLOU 

1179 LET T=8 

12@8 GOTO 19 

1506 PRINT AT 9,29: 9% 8 Pa WP Mo 


1609 PRINT TA 


1700 PRINT TA B 18: STE 


1850 PRINT Are Ma: Ses 


AT 14:10;"5 BUZIN. 108 
IF INKEY$&="" THEN GOTO 490 
GLS j 





NEZ DEUARNT DES 
SRE nr 










ÉBTION POUR re 
_L.BRAIGNEE D 


BONNE CHASS 
THEN GOTO 45359 


SAVE _“SPIDES" 











| Roulette (Spectrum) 


Jamais le ZX Spectrum ne nous aura paru aussi inexorable que dans ce 
programme de roulette russe dû à L. Delreux. Déprimés s'abstenir ! 


4 CLS , 

5 PÜKE 25509,50 

8 GO TO 1909 

19 PRINT TAB 5; INVERSE L; "ROU 
LETTE RUSSE EN L'AN S902" 

17 PLÔT 90,24: DRAU -35,0: DRA 
W -1,1: DRAU -1,1: DRAU 9,60 

El -1,1: DRAU -1,1: DRAUW 
” 4 
o se ORAN -1,1: DRAUW -1,1: DRAW 
o rs CRAU 1,1: DRAU 1,1: CRAUW 19 

27 DRAU D,4: CIRCLE a11,128,2 

23 DRAU -4,-5: DRAU 15,9: DRAU 
jt4ts ORAU Î,-d: DRAU 1,-i: DRA 

So 

30 CIRCLE 229,104,12 

32 FLOT 28530,91: DRAU -3,-S: DR 
eh -1l,-1: DRAU -1,-1: DRAWN -150, 

34 DCRAU -1l,-1: DRAW -1,-1: DRA 
W 9,-558: DRAU -1,-1: DRAU =l,-1 

36 PLOT 140,86: DRAU 9,-50: DR 
AW -1,-1: DRAU -l,-1l: DRAU -dS,0 

37 PFLOT 119,88: DRAU 0,-25 

53 GO TO 800 : 

109 PRINT TAB 5; INVERSE 1; FLA 
SH _ 1; "+4 J E VU MORTEL ++" 
: PAUSE 190: FLASH 

119 PRINT ET 5,5; "CANS UN FUTUR 
TRES PRÔCHE sus" 

112 FOR ÀA=z1l TO 55 


50 - ORDI-S n° 10 Décembre 1984 


115 PRINT AT 8,0;", 
117 PRINT AT 5, QiUREERER RENÉE X 


RÉRLERENEREREREÉE ÉLUS 

118 PRINT AT 19,5; "UN NOUVEAU J 
EU CONCOUERRA", "LÉ MARCHE INTER 
NAT IONAL " 

119 PRINT AT 13,0;". 

129 PRINT AT 13,0; "#4 RER RENE 
HÉRENFÉREERREREREERE" 

123 PRINT AT 16,6; "UN JEU QUI F 
ERA FREMIR LES", """COEURS SENSI 
SDÉsrne À 

154 BEEF .01,R 

126 NEXT À 

129 CLS | 

130 PRINT AT 2,3; "CE JEU 8€ JOu 
E À DEUX." 

131 PRINT AT 4,4; "IL ME FAUT DO 
NC 3 JOUEURS" 

182 LET N=INT (RND+81) 

133 PAUSE 190: INPUT "JOUEUR 1: 

(SON NOM: 41 "26: PRINT AT 7:53; 
“JOUEUR 1: ";2$: IF LEN Z$=N THÉ 
N_FRINT AT _19,9; "ATTENTION ";:24; 
AT _15,7;" TÙU RISQUE DE PERDRE." 

136 INPUT "JOUEUR 2 (SON NOM..) 

"iXS: PRINT AT 9,8; "JOUEUR 2: " 
iX$: IF LEN X4=N THEN PRINT AT 1 
?,8: "ATTENTION ‘:X#: AT 18,5; " CE 
TIÉ PARTIE ÉOURRAIT T'ETRÉ NErAS 
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ROMANE ROBOT 


TRANS-EXPRESS 


Transférez facilement les programmes 
48 K Spectrum de : Cassette à Cassette / 
Cassette à Microdrive / Microdrive à 
Microdrive / Microdrive à Cassette. Vous 
donne le nom caché du programme, sa 
longueur en octets, l'adresse du début 
{Langage Machine) ou la ligne de lance- 
ment automatique (Basic) et beaucoup 
d'autres possibilités. ; 
Trans-Express - réf su 18 - 195 F 
Cassette à Microdrive uniquement - réf su 
19-100 F 

Trans-Express Micradisquette - réf su 20 - 
275 F 


[TRASMPmess 





TRACK BALL 
‘SOURIS”* 


Déjà bien connue sur d'autres gros ordi- 
nateurs, voilà enfin une ‘‘souris'" pour 
votre Spectrum. La vitesse de réponse 
d'une souris ne peut pas être comparée 
à un joystick coñventionnel car, elle 
combine la rapidité d’un joystick digital 
avec la maîtrise d'un type analogique. 
En dehors des logiciels de jeux, TRACK 
BALL peut-être utilisé pour des mouve- 
ments précis de curseurs sur des logi- 
ciels utilitaires. Se raccorde sur l'inter- 
face de jeu HG 05 ou HG 07 ou toute 
autre interface au standard Kempston. 























Spectrum - réf hg 03 - 285 F 


OUO00OCo0 
0000000 
O0cacooo 

SPECTRUM 

VIC 20 

ZX 81 

DRAGON 32 

ATARI, 


ie 


‘ : MEMOIRES Z DRISRESTAUN 





Lords 


Les concepteurs de ce logiciel ont inventé une nouvelle techni- 
que de programmation créant ainsi une nouvelle race de jeux. 
La guerre du Solstice va commencer. Rassemblez sous votre 


banière ceux qui vous aideront à la gagner. 


LORDS OF MIDNIGHT n'est pas seulement une aventure c'est 
une Nouvelle Fantastique Vivante. Et, vous êtes l'auteur de 
l'action. Vous pourrez changer les caractères el les personnages 
à votre gré, distribuant ainsi les différents rôles du monde à 
jamais changeant de LORDS OF MIDNIGHT. SPECTRUM 48K - rél 


sg 92 - 150F. 


;: accessoires 6 a ; 

D 16K 2X 81 - réthu A: 280 F 

64K ZX 81 - réf hu. 22-694 F 
AT SPECTRUM <réfhu:20: 535:F: 





PSYTRON 


Pour ceux qui en ont assez de protéger 
les mêmes bases et de descendre les 
mêmes envahisseurs. Redécouvrez les 
jeux de l'Espace. Enfin un jeu très diff 
rent en 10 écrans d'une extrême haul 
résolution graphique que.l'on peut app 
ler instantanément. î 
Que la force soit avec vous ;.vous en 
aurez besoin. Langage Machine. Cüm- 




















patible Joystick. 
100 % langage Machine, Compatible. 2x 
Joystick. BE 

Spectrum 48 - réf sg 91 - 140 F 















La référence en micro-informatique. 


e 1 an de garantie totale. 


NOUS NE POUVONS MONTRER ICI TOUS LES ECRANS DE 


'0Ë a 82080! . 












ROCKET MAN 


Gravissez les étages de la tour et faites le 
plein de votre fusée ; juste assez pour 
décoller et échapper au danger qui vous 
poursuit venant des vagues de la mer. 
Graphisme Haute Résolution dans la 
même veine que FORTY NINNER. 


100 % langage machine. Option. : 
Redéfinition des touches. 


2X 81 - réf sg 302 - 105 F 
Version Spectrum - réf sg 98 - 110 F 


SYNTHETISEUR 
DE SONS 


Une idée sonore pour votre spectrum. 
L'interface se compose d'un amplifica- 
teur audio et d'un synthétiseur de soris à 
3 canaux pour programmer (Basic ou 
Machine) votre propre musique, des 
explosions, siflements, zaps, carillons, 
bruits blancs et une gamme infinie 
d'autres sons sur 8octaves. Contrôle du 4 
ton, de l'enveloppe et du volume. Livré 
avec un haut parleur et son câble dérs rac- 
cordement (1 m). 


Réf hd 05 - 495 F 


MICRODRIVES_____ 


Le MICRODRIVE dont le rapport 
qualité/prix est meilleur qu'un lecteur de 
disquette, vous offre 85K octets de capa- 
cité. : 8 MICRODRIVES . connectables 
ensembles donnant 680K. Vitesse de 


transfert : 
RS 232, 
trums. 


e Frais expédition et réexpédition inclus. BOOK 
Litiges S 
Burt Le 


e Pas de frais supplémentaire d'envoi à la / Pot 


commande. 
° Tous nos prix sont nets. 


e Recommandé gratuit à partir de 200 F 


d'achat. 
° (61) 21.49.55, pour résoudre vos 
problèmes. 


e Service après vente assuré. 



























PR ee A a É  R S  RE 
Î 
1 BON DE COMMANDE A ENVOYER A LOGISOFT 
{Vente par correspondance. 
1 Vente en magasin. 
ÿ ‘Pourquoi ne pas téléphoner vos commandes ?" : 
1 39, rue de Tunis - B.P.2392-31086 TOULOUSE CEDEX Tél. (61) 21.49.55 
REF, 
[l OTE 
VOTRE MICRO EN TOUTES LETTRES ................... 

CATALOGUE LOGICIELS ET ACCESSOIRES 20 F Participation aüx 
| TT àla première commande. . frais d'envoi GRATU IT 
De fs 200 F 

: : Mae 

Ï na L rte Port craie GRATUIT 
l ue : 
| Code postal : Ville : PRIX TOTAL 
x (Tarifau 15.11.84) RÉGLEMENT CCP CB CR 





ZX OÙ 
FORTY NINNER - jeu d'Arcade 100 % langage 
machine, Haute Résolution - réf sg 69 - 115 F 
BLACK CRYSTAL - Jeu d'Aventure en 7 par- 
ties, 100 K de programme - réf sg 284 - 150 F 
M CODER II - compilateur - réf su 01 - 140 F 
SYNTHETISEUR DE PAROLE - réf hd 02 -520 F 
CONNECTEUR SOUPLE - rét hu 09 - 145 F 
CLAVIER MECANIQUE - réf hu 96 - 140 F 


SPECTRUM 
BLACK CRYSTAL - Jeu d'Aventure en 6 parties - 
180 K de programme - réf sg 285 - 150 F 
JEY SET WILLY - Jeu d'Arcade - 1* au hi 
parade en G.B. - réf sg 303 - 95 F 
THEHOBBIT - Jeu d'Aventure - Prix du Joystick 
d'Or eri G.B. - réf sg 306 - 280 F 
MICROPRINT 85 - Logiciel utilitaire -Pour écrire 
de.32 à 85 colonnes - réf su 11 - 105 F 
SUPERCODE -- 120 roulines en Langage 
Machine compatible Microdrive - réf su 03 - 
180 F 

SOFTALK - Le logiciel qui fait parler votre ordi- 
nateur sans accessoire supplémentaire - 


16K par seconde, sortie 
communication entre spec- 


ZX-MICRODAIVE - réf hu 11 - 870 F 
INTERFACE ZX1 - réf hu 12-830 F 
MICRODISQUETTES - réf hu 13 - 80 F par 4 -316 F 








MICRODRIVE BOOK 


Celui qui veut aller au-delà des limites de 
l'association Spectrum / Microdrive / 
ZX1 doit avoir lu ce livre. L'auteur a 
désossé le Microdrive et nous explique 
ses possibilités en. Basic, en Langage 
Machine, tous les détails de l'interface 
RS 232 et du réseau entre Spectrums. 
Plusieurs programmes _d'application 
“directe sont inclus pour montrer les 
étonnantes possibilités inconnues du 
Microdrive. 


“Réf hb 10-98 F 


83 mots - réf su 10 - 105 F 

FIGHTER PILOT - Le Meilleur simulateur de vol - 
réf sg 301 - 125 F 

CONNECTEUR SOUPLE D'INTERFACE -réf hu 
08-145 F 

CONNECTEUR SOUPLE ENTRE MICRODRIVES 
- 20 cm de long - réf hu 35 - 93 F 

STYLO LUMINEUX - réf hg 01 - 385 F 
INTERFACE CENTRONICS - réf hu 37 - 650 F 
CLAVIER PROFESSIONNEL - réf hu 38 - 685 F 
JOYSTICK 1 - réf hg 01-120 F É 
JOYSTICK IN - réf hg 02 - 150 F 

INTERFACE JOYSTICK - réf hg 05 - 250 F 
INTERFACE JOYSTICK PROGRAMMABLE - rél 
hg 07-400 F 


LIVRES 
ROM DISASSEMBLY 

Spectrum - réf hb 01 -180 F 

2X81 - réf hb 02 - 160 F 

48 BEST ROUTINES pour Spectrum -1** prix du 
ivre Informatique en 6.B. -réf hb 09 - 99 F 
HARDWARE MANUEL - Pour vos extensions 
sur Spectrum - réf hb 11 - 99 F 











NOUS ÉDITONS VOS CRÉATIONS, 
JEUX, GESTIONS, ÉDUCATION. 


. CONTACTEZ-NOUS 
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RES 
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JAN LIVINGSTONE 









































































Dé a alteié derrc romans d' aventure, 
vendus à plus de deux millions 
: d'exemplaires, lan Livingstoné est. 
le créateir d' Eureka. 
Îla imaginé les énigmes et les Diègés les plus re- 


tors.. Il est d'ailleurs le seul, pour l'instant, à con: 

: naître la bonne réponse. Programmé par les équi- 

-:pes d'Andromèda, sous la direction de Donat Kiss 
et Andras Csascat, Eureka représente 5 années 
detravailetle concours de 4 graphistes , 2 musi- 
-ciens et d'un professeur de logique. . 
Nous voulions une aventure quivous pousse dans 
Vos derniers retranchements. Ils l'ont fait! 






MAN TEMPOREL 
Au cours de la dix-septième 
mission Apollo, les astronautes 
américains découvrent sur la Lune 
un étonnant cristal poli de 40 em de 
côté. Réfractaire à toute analyse, le 
; talisman explose sous l'effet de ra- 

i yons laser, qui dispersent chacun de 
ses angles. Grâce à des ondes radio, 3 
} des coins sont retrouvés, mais 5 autres 
manquent toujours. 
Comme par coïncidence, la Lune 
connaît de très fortes secousses sismiques. 
Selon le Dr Majid, elles sont liées à l'explosion 
ducristal et la lune serait elle-mêmesurle point 
: d'exploser, bombardant la Terre de gigantes- 
Î ques météorites. |! affirme, d'autre part, que cha- 
que coin manquant a été propulsé dans l'espace 
temps allant de la préhistoire à l'époque moderne. 
7" Votre mission consiste, avec l'aide de la Nasa et 
de son Chronotron, à remonter le temps pour les 
rapporter. 
; À chaque étape vous devez user de toute votre 
ntelligence pour résoudre chaque énigme ; votre adres- 
se vous aidera à survivre. Eureka, en proposant un jeu 
d'Arcade suivi d'un jeu d'Aventure, teste parfaitement les 
qualités que l'aventure au réel exigerait de vous. 
Vous désirez participer au Concours Eureka: c'est très 
simple. faut que vous possédiez, soit un système Commodo- 
re64 ou Spectrum 48K et acheter le programme Eureka... 
A vous de jouer. 
Pour découvrir la bonne réponse, il faut, tout en reconsti- 
. de tuantle cristal, décoderles énigmes contenues dansles poèmes 
i et les illustrations. 
; - Le premief à nous télégraphier la bonne réponse recevra 





ureka, c'est cinq aventures en une 
seule cassette. 

Remontez le temps et sauvez le 
‘ monde! 


AGE PREHISTORIQUE 

Seul, sans défense, vous vous retrouvez 
à l'aube des temps. Autour de vous ? 
la jungle, le bruissement des feuilles, 
des pas dans les broussailles. Votre 
sang'se fige. Une ombre immense 
vous recouvre. Le sol tremble. 


LA ROME ANTIQUE 

e départ de la course de char 
a être donné. Les autres concur- 
nts vous observent et vous 











Même gabarit, ils vous dépas- 
sent de deux têtes et leurs 
chevaux semblent mieux 
ntraînés que le vôtre. Vous par 
” courez le stade du regard. La course est 
partie ! 


LE MOYEN AGE 

Les créneaux de la Tour de la Fée Morgane 

ne peuvent rien pour empêcher la brise 

glaciale de transpercer votre armure. 

* Seul en haut de cette tour, vous enten- 

dez une voix qui vous crie de la re- 
joindre, là, dans l'ombre. Derrière 


le Chèque de 250.000. | | vous, des pas résonnent. Vous vous 
-Le second gagnera un voyage d'une semaine pour 2 décidez à descendre au plus pro- 
personnes. fond de la tour, Des hurlements 


- Les 3 suivants, des bons d'achat de 5.000 FTTC. 
- Les 245 autres, des bons d'achat de 100 F TTC. 


COMMENT GAGNER ? 

Vous avezreçu la cassette dejeu et son fascicule. Un bon de 
garantie, surtout destiné à formaliser votre participation, com- 
porte 2 volets :un que vous devezabsolument conserver, l'autre 
que vous devez impérativement nous retourner dûment rempli. 
Ilconstitue la seule véritable preuve de votre participation. N'ou- 
bliez donc surtout pas denousle retourner. Si, d'autre part, vous 
avez découvert la bonne réponse, ne nous téléphonez pas! 
Adressez-nous un télégramme répondant aux conditions pré- 
es dans le règlement. 

Eureka est un programme aussi spectaculaire qu'une super 
production de cinéma. Les graphismes et les animations sont 
surprenantes de vérité. La bande sonore et les bruitages vous 
replongent, grâce à une simulation parfaite, dans chacune des 
cinq époques. Vous percevrez tout. 

Il est joint à ce programme un fascicule détaillé qu'il est” 

ÿ essentiel de lire attentivement. Illustré, il contient toutes les * 
explications du jeu et les ns auxquelles il vous faudra 
répondre. 


BON DE COMMANDE 


Je désire recevoir le JEU EUREKA SUR CASSETTE, au prix de 250F. Je ne le recevrai qu'à 
partir du 1/12/1984, date de début du concours; et mon règlement ne sera encaissé, au plus 
tôt, que 8 jours avant la livraison du jeu. 

JEU EUREKA POUR COMMODORE 64 ©] 250 F TTC. 
JEU EUREKA POUR SPECTRUM 48K [1] 250 F TTC. 


CI] 
Û Nom Prénom F 
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déchirent la nuit. 


DLDITZ 
long couloir, gris, sombre et glacé. 
us avancez pas à pas, attentif au 
oindre bruit. Du bout du couloir vous 
arvient une conversation assourdie. 
A votre droite, une porte ! Sur la porte 
un mot : VERBOTEN! 
Vous l'ouvrez. Le bruit métallique 
des bottes se rapproche. Vous ser- 
rez les poings. 


LES CARAÏBES MODERNES 
: Vous remontez le temps à la vitesse 
à de la lumière. Dans l'immense labora- 
toire du Dr Von Berg, l'écran de l'or- 
dinateur affiche les informations. 
Callé dans un fauteuil, les mains 
posées sur le clavier, vous vous 
préparez à un duel où l'arme est 
l'esprit. 













Siège Social est situé 39, rue Vicor-Massé -75009 PARK, organise à partir 
du 1 Décembre 1984, un Concours avec obligation d'achat intitulé 
EUREKA. Le premier dépouillement aura lieu le 31 Mars 1985. Si néces- 
saire, un dépouillement mensuel sera ensuite effectué jusqu'à ce que les 
250 Prix soient distribués. Ce concours est ouvert à toute personne physi- 
que résidant sur un territoire francophone, à l'exception du Personnel des 
Sociétés organisatrices ainsi que toute personne ayant participée à l'éla- 
boration, la promotion, la distribution et la revente du jeu EUREKA. 
Pour participer au Concours, il faut : acheter le jeu EUREKA et renvoyer le 
Bon de Participation joint; pour gagner, il faut être l'une des 250 premiè- 
res réponses aux énigmes contenues dans le jeu et ce, par télégramme. 
Le réglement complet a été déposé chez Maître JAUNATRE, Huissier de 
Justices à PARIS, et peut-être obtenu, sur simple demande accompagnée 
d'une enveloppe timbrée à : 

Concours EUREKA - 39, rue Victor Massé - 75009 PARIS. 


















ï Adresse 
: Ville Code postal: LL LE 1 1] 


Crjointe la somme de F TTC, par chèque bancaire à 











: l'ordre de EUREKA INFORMATIQUE , 39/41, rue Victor-Massé - 75009 PARIS. 
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Un ordinateur SINCLAIR SPECTRUM 48K / Un interfa- 
ce Peritel/Un magnetocassette/Un Interface Joystick / = 
Un Joystick / Les divers câbles de branchement / 

Le programme EUREKA. 


Un ordinateur Commodore 64 / Un interface Peritel / 
Un magnétocassette pour C64 / Les divers câbles de 
branchement (magnétophone, télé et secteur) / Un 
joystick / Le programme EUREKA. 










| CADEAU 


Les personnes ayant 
passé commande avant 
le 31.12.84. Recevront 

gratuitement le guide 
, des logiciel 84. 


Le concours n'ouvrant quele 1 décembref1984, aucun jeu Eurekaneseralivré au publicavant cette date. Les expéditions des 
programmes Eureka débuteront donc le 30 novembre 1984 et seront effectuées dans l'ordre d'arrivée des commandes. Les 
chèques seront encaissés 8 jours seulement avant la date d'expédition. Le matériel, lui, sera livré immédiatement. 


Les éléments de ces ensembles peuvent être acquis séparément : consulter le bon de commande ci-dessous ou notre catalogue VPC. : 
Dm mm mm mm mm mm mn me me mn \ 


BON DE COMMANDE PRIX EN FRANCS, TTC QTÉ Votre Commande en Francs Signature: 
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DOUBLEÆMICRODRIVEROTRONICSRE RER Re a 11990; 
MICROCASSETTE POUR MICRODRIVE SINCLAIR . .................. 15e I 
LECTEUR:DE.CASSETTE Ar ER OR ANT PR Pr AUS 
IMPRIMANTE THERMIQUE ALPHACOM 32 ...............,....... 920 Î Code postal: |_| 
ROULEAUIDEPARIERAERMIQUE RER TR RAR 30m. : 
MONITEUR:COULEUR/CMIAFIDELIT ER RARE ERP RE 27D08RET I Ville : - 
CABLE POUR BRANCHER UN COMMODORE 64 SUR CM14.......... GUESS 
CABLE POUR BRANCHER UN SPECTRUM SUR CMI4 .............. 130 I 
MONITEURIN/VIPEILIPSITP200E RER PER PR Re 950 
JOYSTICKSPECTRANIDEOR EE REP RR CR E 95 I 
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Total de votre commande : F TTC. I 
l 
; Je désire recevoir votre catalogue 
on = Prénom I de vente par correspondance. Ci- 
Adresse Ville Code postal joint 5 Francs en timbres-poste 
Cijointe la somme de F TTC, par chèque bancaire à l'ordre de EUREKA INFORMATIQUE i pour contribution aux frais d'ex- 


39/41, rue Victor-Massé - 75009 PARIS. pédition. 
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